File manager - Edit - /opt/gsutil/third_party/chardet/tests/IBM855/forum.template-toolkit.ru.8.xml
Back
<?xml version="1.0" encoding="IBM855"?> <!-- Source: http://forum.template-toolkit.ru/rss/forum_8.rss Expect: IBM855 --> <rss version="2.0"> <channel> <title>������ Template Toolkit : ���з��Ʒ ��� ᠢ��� � �����Ԡҷ � Perl</title> <link>http://forum.template-toolkit.ru/view_forum/forum_id-8.html?rss</link> <description>Template Toolkit - ������, ��Ԡ� � ���ިҠ� ���Ҡ ֢ᠢ��Ʒ ��������. ՠ 㠽� ᠢ�堨� �����, � ������� ֢��馠���� ������� ���������Է� ���з��Ʒ �� ᠢ�� � �����Ԡҷ. Text::Template, HTML::Template, Mason � ��笷� ���з��Ʒ</description> <language>ru</language> <copyright>Lobanov Igor</copyright> <webMaster>Lobanov Igor <webmaster@template-toolkit.ru></webMaster> <pubDate>Thu, 17 Mar 2005 12:03:32 GMT</pubDate> <lastBuildDate>Wed, 4 Jan 2006 02:29:01 GMT</lastBuildDate> <managingEditor>Perl script, Template Toolkit</managingEditor> <image> <url>http://forum.template-toolkit.ru/images/tt2powered.gif</url> <title>Template Toolkit - ������� � perl</title> <link>http://forum.template-toolkit.ru/</link> <width>88</width> <height>31</height> </image> <docs>http://blogs.law.harvard.edu/tech/rss</docs> <item> <guid isPermaLink="true">http://forum.template-toolkit.ru/view_topic/topic_id-53.html?rss</guid> <pubDate>Tue, 28 Dec 2004 19:07:19 GMT</pubDate> <title>��ШԷ� �֦�, �ᨦ���ШԷ�, � ��Ԫ���ᠤ��</title> <link>http://forum.template-toolkit.ru/view_topic/topic_id-53.html?rss</link> <description>ՠ <a target="_blank" href="http://www.theperlreview.com/">Perl Review</a> ���з���Ԡ ����� �ᠽ�Ԡ �� ��� (brian d foy) &quot;Separating Code, Presentation, and Configuration&quot;. շ� ���֦���� ب��֦ ����.<br /><br /><span style="font-weight:bold">���Ʒ� ֢���.</span><br /><br />� ���� ��֬���� �� �ᨦ��� ���� � ��з� �֦, �ᨦ���ШԷ� � ��Ԫ���ᠤ��, ��֢� 㦨Р�� ��֬���� ��Ш� ����ֽ � Ш��ֽ ��� �֦����Ʒ.<br /><br /><span style="font-weight:bold">1. �먦�Է�.</span><br /><br />� ���Ш�Ԩ� �����ƨ � �ᨦ���� ��֬����, ������ � �������� ��� �֬�, ��֢� ��� � ��֢���� Rich Site Summaries (RSS) � ��笷� 먢-㠽���<span style="font-weight:bold"><sup>1</sup></span>. � �֦� � ���������� з������ �з����, ��֢� �Ơ��� ƠƷ� ����� ������ � Ơ� �ᨦ������� �����, � ֢���� ��� � ���� �����ƨ � ��� �����М.<br /><br /><span style="font-style:italic">ѷ��Ԭ 1</span> �֦���� ��֬����, ������ � �ᨦ������ � �ᨦ��� �����ƨ. � Ҡ��� <span style="font-weight:bold">@files</span> ������� �����, ������ Ԩ֢�֦��� ������, <span style="font-weight:bold">$base</span> - Ơ��֬, ��� �ֵ��ި��� ���֦, � Ԩ������� ����Է� <span style="font-weight:bold">print</span> ��� HTML � �֦������ֽ ������ ب�Ҩ��� (��� �ᨦ������Ԩ� �Ơ�� ��� ����������� HTML-���Ƥ�� �֦��� CGI). ��� Ԩ���Ʒ� � ����� ��� �������馨Է� �֦. �֬�� � ��� ��Ҩ���� �ط��� 㠽��� �з ���֦, � ���� ���Ҡ�� ��֬����, ��з Ԡ���� ���-�� Ԩ������� �з 㦨Р� ���� �����.<br /><br /><span style="font-style:italic">ѷ��Ԭ 1: ����� RSS � ��������ط����ҷ �Ԡ��Է�ҷ.</span><br /><div class="code"><pre>1 #!/usr/bin/perl -w 2 use strict; 3 4 use LWP::Simple; 5 use XML::RSS; 6 7 my @files = qw( 8 http://use.perl.org/useperl.rss 9 http://search.cpan.org/rss/search.rss 10 http://jobs.perl.org/rss/standard.rss 11 http://www.perl.com/pace/perlnews.rdf 12 http://www.perlfoundation.org/perl-foundation.rdf 13 http://www.stonehenge.com/merlyn/UnixReview/ur.rss 14 http://www.stonehenge.com/merlyn/WebTechniques/wt.rss 15 http://www.stonehenge.com/merlyn/LinuxMag/lm.rss 16 ); 17 18 my $base = '/usr/home/comdog/TPR/rss-html'; 19 20 foreach my $url ( @files ) 21 { 22 my $file = $url; 23 24 $file =~ s|.*/||; 25 26 my $result = open my $fh, &quot;&gt; $base/$file.html&quot;; 27 28 unless( $result ) 29 { 30 warn &quot;Could not open [$file] for writing! $!&quot;; 31 next; 32 } 33 34 select $fh; 35 36 my $rss = XML::RSS-&gt;new(); 37 my $data = get( $url ); 38 $rss-&gt;parse( $data ); 39 40 my $channel = $rss-&gt;{channel}; 41 my $image = $rss-&gt;{image}; 42 43 print &lt;&lt;&quot;HTML&quot;; 44 &lt;table cellpadding=1&gt;&lt;tr&gt;&lt;td bgcolor=&quot;#000000&quot;&gt; 45 &lt;table cellpadding=5&gt; 46 &lt;tr&gt;&lt;td bgcolor=&quot;#aaaaaa&quot; align=&quot;center&quot;&gt; 47 HTML 48 49 if( $image-&gt;{url} ) 50 { 51 my $img = qq|&lt;img src=&quot;$$image{url}&quot; alt=&quot;$$channel{title}&quot;&gt;|; 52 print qq|&lt;a href=&quot;$$channel{link}&quot;&gt;$img&lt;/a&gt;&lt;br&gt;\n|; 53 } 54 else 55 { 56 print qq|&lt;a href=&quot;$$channel{link}&quot;&gt;$$channel{title}&lt;/a&gt;&lt;br&gt;\n|; 57 } 58 59 print &lt;&lt;&quot;HTML&quot;; 60 &lt;font size=&quot;-1&quot;&gt;$$channel{description}&lt;/font&gt; 61 &lt;/td&gt;&lt;/tr&gt; 62 &lt;tr&gt;&lt;td bgcolor=&quot;#bbbbff&quot; width=200&gt;&lt;font size=&quot;-1&quot;&gt; 63 HTML 64 65 foreach my $item ( @{ $rss-&gt;{items} } ) 66 { 67 print qq|&lt;b&gt;&gt;&lt;/b&gt;&lt;a href=&quot;$$item{link}&quot;&gt;$$item{title}&lt;/a&gt;&lt;br&gt;&lt;br&gt;\n|; 68 } 69 70 print &lt;&lt;&quot;HTML&quot;; 71 &lt;/font&gt;&lt;/td&gt;&lt;/tr&gt; 72 &lt;/td&gt;&lt;/tr&gt;&lt;/table&gt; 73 &lt;/td&gt;&lt;/tr&gt;&lt;/table&gt; 74 HTML 75 76 close $fh; 77 }</pre></div><br /><br /><span style="font-weight:bold">2. �妨ШԷ� �ᨦ���ШԷ�.</span><br /><br />������ ���� Ԩ �����련� 㨢� � ������� �ᨦ���ШԷ�� �����. ��� ��֬��Ҡ ����Ԡ ���� ����� � 㦨Р�� �� ��������ҷ ����-��, ��� �� �ᨦ����ި� - ��, ��� � ᠢ�堜 � RSS Ԩ ������ �Ҩ�� �Ԡ��Է�. � �֬� ����� ��ַ��֦��� HTML, TeX, �����ֽ ����, �з ��� Ơ�ֽ-�� ���Ҡ�, ������ Ԩ �֬� 㨢� �ᨦ�����.<br /><br />�������� ���-�� ���� Ԡط��� �֢������ ����� ��� ᠢ��� � �����Ԡҷ, �� �Ԩ ������ �֦��� Text::Template Ӡ�Ơ-�騽��Ԡ ��ҷ��� (Mark-Jason Dominus). �� ��Р�� �� ��� �Ԩ Ԩ֢�֦���, Ԩ �ᨢ�� ��� ��֨� ᠢ��� �����Է����� ��֬��� � Ԡط�� �������� Ԡ Perl. � Ԩ�� �����ֽ ���᪨�� � �Ԩ Ԩ �ᨢ���� ����� ���� ��������, ��������� ������� ��������� Perl.<br /><br /><span style="font-style:italic">ѷ��Ԭ 2</span> - ��� � � ��֬��Ҡ, ������ �Ҩ��� �Ԩ����֬� HTML ����������� Text::Template. � ����ƨ 5 � �������� Ҩ�֦ fill_in_file(). � ����ƨ 13 �Ơ��렜 ������, ������ ��� �����������. ��� HTML, ���������� ��֬���ֽ, �ب�� ��Ԩ�� � ���� �����Ԡ, ��먦���� � <span style="font-style:italic">з��Ԭ� 3</span>.<br /><br />�֦��� Text::Template ���� ��ԷҠ�� ����� Ơ� ���. �М�� ���� ��������� �ҨԠҷ ب�Ҩ��� � �����Ԩ, � �Ԡ��Է� - �Ԡ��Է�ҷ ب�Ҩ��� �����Ԡ, � ��� ��ᨦ��ޜ� �� ب�Ҩ���. ��з �Ԡ��Է� ���� �����ֽ �Ơ���, ب�Ҩ�Ԡ� �����Ԡ �Ơ���. ��з �Ԡ��Է� ���� - ���Է��� Ҡ���, ب�Ҩ�Ԡ� �����Ԡ - Ҡ���, � �� ��Ш�.<br /><br />ע����, ���련�� XML::RSS - ���Է��� ���. �֦��� �ᨦ�����ި� ��������� ���᪨�� ��� ���Է�, �� Ԩ ��� �����ؠ. ��� ���� �Ҩ��� ��, ��� � ����� بᨦ��� �֨�� �������. � �����Ԩ <span style="font-weight:bold">$rss-&gt;channel</span>, ������ � Ơ����� �Ԡ��Է� �֦���� ���Է��� ���, �������� <span style="font-weight:bold">%channel</span>, � <span style="font-weight:bold">$rss-&gt;items</span>, �֦����� ���Է��� Ҡ��� �������� <span style="font-weight:bold">@items</span>.<br /><br /><span style="font-style:italic">ѷ��Ԭ 2: ���������Է� �����Ԡ.</span><br /><div class="code"><pre>1 #!/usr/bin/perl -w 2 use strict; 3 4 use LWP::Simple; 5 use Text::Template qw(fill_in_file); 6 use XML::RSS; 7 8 my @files = qw( 9 http://use.perl.org/useperl.rss 10 ); 11 12 my $base = '.'; 13 my $template = 'rss-html.tmpl'; 14 15 foreach my $url ( @files ) 16 { 17 my $file = $url; 18 19 $file =~ s|.*/||; 20 21 my $result = open my $fh, &quot;&gt; $base/$file.html&quot;; 22 23 unless( $result ) 24 { 25 warn &quot;Could not open [$file] for writing! $!&quot;; 26 next; 27 } 28 29 my $rss = XML::RSS-&gt;new(); 30 my $data = get( $url ); 31 $rss-&gt;parse( $data ); 32 33 print fill_in_file( $template, HASH =&gt; $rss ); 34 close $fh; 35 }</pre></div><br /><br />����� �����Ԡ Text::Template ������ި� ���Ʒ �֦�, ������ �� Ԡ�֦�� Ҩ�� �������ҷ ��֢Ơҷ. �� �Ҩ�ި� ���� ���Ш�Է� ���Ш���� ����Է��. �ҨԠ ب�Ҩ��� - �М�� ����, ������ Ԡ ������ � بᨦ�� � Ơ����� ���Ҩ�� ���Ƥ�� fill_in_file() � �֦�, ��먦����� � <span style="font-style:italic">з��Ԭ� 2</span>.<br /><br /><span style="font-style:italic">ѷ��Ԭ 3: HTML ������.</span><br /><div class="code"><pre>1 &lt;table cellpadding=1&gt;&lt;tr&gt;&lt;td bgcolor=&quot;#000000&quot;&gt; 2 &lt;table cellpadding=5&gt; 3 &lt;tr&gt; 4 &lt;td bgcolor=&quot;#aaaaaa&quot; align=&quot;center&quot;&gt; 5 &lt;a href=&quot;{ $channel{link} }&quot;&gt;{ 6 7 $image ? qq|&lt;img src=&quot;$image&quot; alt=&quot;$channel{title}&quot;&gt;| : $channel{title} 8 9 }&lt;/a&gt;&lt;br&gt; 10 11 { $channel{description} } 12 &lt;/td&gt; 13 &lt;/tr&gt; 14 15 &lt;tr&gt; 16 &lt;td bgcolor=&quot;#bbbbff&quot; width=200&gt;&lt;font size=&quot;-1&quot;&gt; 17 { 18 my $str; 19 20 foreach my $item ( @items ) 21 { 22 $str .= qq|&lt;b&gt;&gt;&lt;/b&gt;&lt;a href=&quot;$$item{link}&quot;&gt;$$item{title}&lt;/a&gt;&lt;br&gt;&lt;br&gt;\n|; 23 } 24 25 $str; 26 }&lt;/font&gt;&lt;/td&gt; 27 &lt;/tr&gt; 28 &lt;/td&gt;&lt;/tr&gt;&lt;/table&gt; 29 &lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;</pre></div><br /><br />Ǡ� ������ ���Ҡ �������� �����Ԡ, � �֬� Ҩ���� �ᨦ���ШԷ� Ԩ Ҩ��� �֬��� �֦�. ��з � ���� ��Է� ��ҨԷ�� 뷦 �ᨦ���ШԷ� �����, � ��Ҩ�ޜ ������ ������. ��з �Ԩ �Ҩ��� HTML �ᨢ���� �����ֽ ����, � ������ ��ҨԜ �֦ ���� ���Ҡ� ������, Ơ� ��� 㦨Р�� � <span style="font-style:italic">з��Ԭ� 4</span>.<br /><br /><span style="font-style:italic">ѷ��Ԭ 4: ������ ��� ֢��֬� ����.</span><br /><div class="code"><pre>1 { $channel{title} } 2 3 { $channel{description} } 4 5 { 6 my $str; 7 8 foreach my $item ( @items ) 9 { 10 $str .= qq|* $$item{title}\n|; 11 } 12 13 $str; 14 }</pre></div><br /><br /><span style="font-weight:bold">3. �妨ШԷ� ��Ԫ���ᠤ��.</span><br /><br />������ ���� ��� ������ި� ���������� ����� � ��з����� �����Է�. � <span style="font-style:italic">з��Ԭ� 1</span> � ����� ���ط�� �Ԡ��Է� ������᷷ ��� ���֦�, ��� ��Р�� �ֽ ����� ����Ʒ� - ��з ��� ��Ҡ���� �������� ��Ҩ�ި���, ����� ���Ҡ����. ���Ҩ �֬� <span style="font-style:italic">� з��Ԭ� 2</span> ����� ���ط��� ��� �����Ԡ, Ԩ������ Ԡ �� ��� � �֬� Ҩ���� �ᨦ���ШԷ�, ��Ҩ��� ������. �Ԩ ����� �Ҩ�� ����������� ����� Ơ���� ������� �֦�������֨ ��� �Ҩ��� ���������Է� ֦�֬� � �֬� � �ҨԷ ��� ���֬� �֦����֬�.<br /><br />��֬�� ��֢֦��-�������� ������, ������ � Ԡ��� � ����Ԩ� �ᨢ��, ��֢� ���������� ��ᨦ������� ��Ԝ� ����� ����� �з ��М����� ���з����, ������ �֦���� ������ ��Ԫ���ᠤ����� �����. ��ֽ �֦�֦ �ᨢ��, ��֢� ��Ԩ��� ���������� �Ԡ� ������ ���Ơ ��֬��ҷ���Է� � ���� ����� - ���Ơ ���Ҡ�� �����. ��ֵ�� ��Ԫ���ᠤ����� ����� �֬�� ����� � Ԩ�鷦����� ��������, �� �Է Ԩ ����Ҡ�� ��֬����.<br /><br />� �֬� �Ơ��� ���� ��Ԫ���ᠤ����� ����� Ԩ�����Ʒҷ ����֢�ҷ � ��Ơ�� ������ ֦�� �� Է�. �ᵷ� Comprehensive Perl Archive Network (CPAN)<span style="font-weight:bold"><sup>2</sup></span> �֦���� Ԩ������� �֦�Ш� ��� ���� ��Ԫ���ᠤ����� ������ � ��з��� ���Ҡ堵 �з ���Ҩ���� ��ҠԦ�ֽ ����Ʒ. ���Ԩ�� ������ ����� �֦�֦, ������ ���Ш����ި� �� ��馠�.<br /><br />�֬�� � �ب��� Ԡ��� �妨���� ����� ��Ԫ���ᠤ�� �� �ַ� �������, � بᨢ�� Ԩ������� �֦�Ш� Ԡ CPAN � ��������� Ԡ ConfigReader::Simple, ������ ��������� �������� ���Ҡ� �М�-�Ԡ��Է�. � ���������� ��� Ԡ������� �����, ��� Ԡ��� ��������� �ַ ��ҨԨԷ� ���� ע���� (Bek Oberin), ������ �ᷬ�Ԡ���ֽ ��㷷, ��� �������� ���� Ԡ 㨢� �֦������ �֦���.<br /><br /><span style="font-style:italic">ѷ��Ԭ 5</span> �������� <span style="font-style:italic">з��Ԭ 2</span> � ���������Է� ConfigReader::Simple. � �� ���� ֢���� ��Ԫ���ᠤ��, ��� ��堜 �Ԡ��Է� �� ֢����. �֦��� ��֢���� �ҨԠ �М��� ��Ԫ���ᠤ�� � �ҨԠ Ҩ�֦�� ��� �����֬� �����ؠ (���� ��� �����ؠ � �Ԡ��Է�� �М��� � �������Ʒҷ �ҨԠҷ, ������ Ԩ �֬�� ���� ��֢������ � ����巪�Ơ���� Perl �֦᷵���� ����������� Ҩ�֦ get()). <span style="font-style:italic">ѷ��Ԭ 6</span> �֦���� ��Ԫ���ᠤ����� ����.<br /><br /><span style="font-style:italic">ѷ��Ԭ 5: ���������Է� ConfigReader::Simple.</span><br /><div class="code"><pre>1 #!/usr/bin/perl -w 2 use strict; 3 4 use ConfigReader::Simple; 5 use LWP::Simple; 6 use Text::Template qw(fill_in_file); 7 use XML::RSS; 8 9 my $config = ConfigReader::Simple-&gt;new( './rss.config' ); 10 11 my $base = $config-&gt;base; 12 my $template = $config-&gt;template; 13 my $extension = $config-&gt;extension; 14 15 my @files = split /\s+/, $config-&gt;files; 16 17 foreach my $url ( @files ) 18 { 19 my $file = $url; 20 21 $file =~ s|.*/||; 22 23 my $result = open my $fh, &quot;&gt; $base/$file.$extension&quot;; 24 25 unless( $result ) 26 { 27 warn &quot;Could not open [$file] for writing! $!&quot;; 28 next; 29 } 30 31 my $rss = XML::RSS-&gt;new(); 32 my $data = get( $url ); 33 $rss-&gt;parse( $data ); 34 35 print $fh fill_in_file( $template, HASH =&gt; $rss ); 36 close $fh; 37 }</pre></div><br /><span style="font-style:italic">ѷ��Ԭ 6: ���� ��Ԫ���ᠤ��.</span><br /><div class="code"><pre>1 base . 2 template rss-html.tmpl 3 files http://use.perl.org/useperl.rss 4 extension html</pre></div><br /><br /><span style="font-weight:bold">4. ��М��Է�.</span><br /><br />� �֬� �Ҩ���� ��Ҩ� �ַ� ��֬���, �妨��� �֦ �� �֬�Ʒ �ᨦ���ШԷ� � ��Ԫ���ᠤ����ֽ �Ԫ��Ҡ���. ��� ��ШԷ� ��Р�� ��֬���� ��Ш� ����ֽ � �����ֽ � ����堤�� � ����� �����Է��. ������� ������ޜ� ��Ҩ���� ���֦, � ��Ԫ���ᠤ����� ����� �������� ᠢ��ֽ ��֬���� ��� ��ҨԨԷ� �֦�. Text::Template � ConfigReader::Simple ��Р�� ��� Ԡ������� �������, Ԡ������� ��������.<br /><br /><span style="font-weight:bold">5. ����Ʒ</span><br /><br />�� �֦�з, ���ҷԠ��� � ��ֽ ����, ����� Ԡ�� Ԡ Comprehensive Perl Archive Network (CPAN) - <a target="_blank" href="http://search.cpan.org">http://search.cpan.org</a><br /><br /><span style="font-weight:bold">6. ע �����.</span><br /><br />�ᠽ�� �� �ֽ (brian d foy) - ����� <span style="font-style:italic">The Perl Review</span>.<br /><br /><span style="font-weight:bold">��Ҩ��Է�.</span><br /><br /><span style="font-weight:bold"><sup>1</sup></span> &quot;Simple RSS with Perl&quot; by brian d foy, The Perl Review v0 i5, November 2002, <a target="_blank" href="http://www.theperlreview.com">http://www.ThePerlReview.com</a><br /><br /><span style="font-weight:bold"><sup>2</sup></span> <a target="_blank" href="http://search.cpan.org">http://search.cpan.org</a><br /><br /><a target="_blank" href="http://www.theperlreview.com/Articles/v0i7/config.pdf">�ᷬ�Ԡ� ���� Ԡ Perl Review (PDF)</a> </description> <author>�֢���� ����� <authors@template-toolkit.ru></author> <comments>http://forum.template-toolkit.ru/view_topic/topic_id-53.html</comments> <category>��笷� ���, ������� � �����Ԡҷ � Perl</category> <source url="http://forum.template-toolkit.ru/rss/forum_id-8.rss">http://forum.template-toolkit.ru/view_topic/topic_id-53.html?rss</source> </item> </channel> </rss>
| ver. 1.4 |
Github
|
.
| PHP 8.2.28 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings