kennethreitz/dive-into-python3
1
0
Fork 0
mirror of https://github.com/kennethreitz/dive-into-python3.git synced 2026-06-05 23:10:17 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
ce7bfb845a4ab03048fdcdfcdbe0e8a56dafbc2f
dive-into-python3/chardet/tests/IBM855/forum.template-toolkit.ru.8.xml
T
Mark Pilgrim 831681489e initial import
2009-01-24 16:05:55 -05:00

229 lines
17 KiB
XML
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
<?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 &lt;webmaster@template-toolkit.ru&gt;</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>Õ  &lt;a target="_blank" href="http://www.theperlreview.com/"&gt;Perl Review&lt;/a&gt; ÖØç¢Ð·ÆÖë Ô  ãå åíÞ £á ½ Ô  ¦¨ «ÖÞ (brian d foy) &amp;quot;Separating Code, Presentation, and Configuration&amp;quot;. Õ·é¨ Øá·ëÖ¦·åãÞ Ø¨á¨ëÖ¦ ãå åí·.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;Çá åÆ·½ Ö¢óÖá.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;à ëóÞÐ ØáÖ¬á ÒÒç ·ó Øᨦñ¦çù¨½ ãå åí· · á ó¦¨Ð·Ð ÆÖ¦, Øᨦãå ëШԷ¨ · ÆÖÔª·¬çá ¤·œ, ûåÖ¢ñ 㦨Рåí ØáÖ¬á ÒÒç ¢ÖШ¨ ¬·¢ÆÖ½ · Ш¬ÆÖ½ ¦ÐÞ ØÖ¦¦¨áéÆ·.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;1. ì먦¨Ô·¨.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;ì ØÖãШ¦Ô¨Ò ëñØçãƨ Þ Øᨦãå ë·Ð ØáÖ¬á ÒÒç, ÆÖåÖáçœ Þ ·ãØÖÐíóçœ ¦ÐÞ åÖ¬Ö, ûåÖ¢ñ ó ¢·á åí · ÖåÖ¢á é åí Rich Site Summaries (RSS) ã ¦á笷µ 먢-ã ½åÖë&lt;span style="font-weight:bold"&gt;&lt;sup&gt;1&lt;/sup&gt;&lt;/span&gt;. ì ÆÖ¦¨ Þ ·ãØÖÐíóÖë Ð зå¨á ÐíÔñ¨ ë¨Ð·û·Ôñ, ûåÖ¢ñ çÆ ó åí Æ Æ·¨ ª ½Ðñ ó ¬áçé åí · Æ Æ Øᨦãå ëÐÞåí ¦ ÔÔñ¨, · Ö¢¨ù Ð ûåÖ ë ÷åÖÒ ëñØçãƨ Þ ÷åÖ ·ãØá ëÐœ.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 1&lt;/span&gt; ãÖ¦¨áé·å ØáÖ¬á ÒÒç, ÆÖåÖáçœ Þ Øᨦãå ëÐÞÐ ë Øᨦñ¦çù¨Ò ëñØçãƨ. ì Ò ãã·ë¨ &lt;span style="font-weight:bold"&gt;@files&lt;/span&gt; µá ÔÞåãÞ ª ½Ðñ, ÆÖåÖáñ¨ Ô¨Ö¢µÖ¦·ÒÖ ó ¬áçó·åí, &lt;span style="font-weight:bold"&gt;$base&lt;/span&gt; - Æ å ÐÖ¬, ¬¦¨ ãÖµá ÔÞ¨åãÞ ëñëÖ¦, · Ô¨ãÆÖÐíÆÖ ëñá é¨Ô·½ &lt;span style="font-weight:bold"&gt;print&lt;/span&gt; ãÖó¦ œå HTML ã ØÖ¦ãå ÔÖëÆÖ½ ØáÖãåñµ بá¨Ò¨ÔÔñµ (ûåÖ ØᨦØÖûå·å¨ÐíÔ¨¨ ãÆ é¨Ò û¨Ò ·ãØÖÐíóÖë åí HTML-ªçÔƤ·· ÒÖ¦çÐÞ CGI). øåÖ Ô¨¬·¢Æ·½ · åáç¦Ôñ½ ¦ÐÞ ãÖØáÖëÖé¦¨Ô·Þ ÆÖ¦. ÇÖ¬¦  Þ ó µÖûç ØÖÒ¨ÔÞåí ãØ·ãÖÆ ã ½åÖë ·Ð· ëñëÖ¦, Þ á·ãÆçœ ãÐÖÒ åí ØáÖ¬á ÒÒç, ¨ãз Ô ¢¨áç ûåÖ-åÖ Ô¨Øá ë·ÐíÔÖ ·Ð· 㦨Рœ ¦áç¬çœ Öõ·¢Æç.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 1: ô ¬áçóû·Æ RSS ã é¨ãåÆÖØáÖØ·ã ÔÔñÒ· óÔ û¨Ô·ÞÒ·.&lt;/span&gt;&lt;br /&gt;&lt;div class="code"&gt;&lt;pre&gt;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, &amp;quot;&amp;gt; $base/$file.html&amp;quot;;
27
28 unless( $result )
29 {
30 warn &amp;quot;Could not open [$file] for writing! $!&amp;quot;;
31 next;
32 }
33
34 select $fh;
35
36 my $rss = XML::RSS-&amp;gt;new();
37 my $data = get( $url );
38 $rss-&amp;gt;parse( $data );
39
40 my $channel = $rss-&amp;gt;{channel};
41 my $image = $rss-&amp;gt;{image};
42
43 print &amp;lt;&amp;lt;&amp;quot;HTML&amp;quot;;
44 &amp;lt;table cellpadding=1&amp;gt;&amp;lt;tr&amp;gt;&amp;lt;td bgcolor=&amp;quot;#000000&amp;quot;&amp;gt;
45 &amp;lt;table cellpadding=5&amp;gt;
46 &amp;lt;tr&amp;gt;&amp;lt;td bgcolor=&amp;quot;#aaaaaa&amp;quot; align=&amp;quot;center&amp;quot;&amp;gt;
47 HTML
48
49 if( $image-&amp;gt;{url} )
50 {
51 my $img = qq|&amp;lt;img src=&amp;quot;$$image{url}&amp;quot; alt=&amp;quot;$$channel{title}&amp;quot;&amp;gt;|;
52 print qq|&amp;lt;a href=&amp;quot;$$channel{link}&amp;quot;&amp;gt;$img&amp;lt;/a&amp;gt;&amp;lt;br&amp;gt;\n|;
53 }
54 else
55 {
56 print qq|&amp;lt;a href=&amp;quot;$$channel{link}&amp;quot;&amp;gt;$$channel{title}&amp;lt;/a&amp;gt;&amp;lt;br&amp;gt;\n|;
57 }
58
59 print &amp;lt;&amp;lt;&amp;quot;HTML&amp;quot;;
60 &amp;lt;font size=&amp;quot;-1&amp;quot;&amp;gt;$$channel{description}&amp;lt;/font&amp;gt;
61 &amp;lt;/td&amp;gt;&amp;lt;/tr&amp;gt;
62 &amp;lt;tr&amp;gt;&amp;lt;td bgcolor=&amp;quot;#bbbbff&amp;quot; width=200&amp;gt;&amp;lt;font size=&amp;quot;-1&amp;quot;&amp;gt;
63 HTML
64
65 foreach my $item ( @{ $rss-&amp;gt;{items} } )
66 {
67 print qq|&amp;lt;b&amp;gt;&amp;gt;&amp;lt;/b&amp;gt;&amp;lt;a href=&amp;quot;$$item{link}&amp;quot;&amp;gt;$$item{title}&amp;lt;/a&amp;gt;&amp;lt;br&amp;gt;&amp;lt;br&amp;gt;\n|;
68 }
69
70 print &amp;lt;&amp;lt;&amp;quot;HTML&amp;quot;;
71 &amp;lt;/font&amp;gt;&amp;lt;/td&amp;gt;&amp;lt;/tr&amp;gt;
72 &amp;lt;/td&amp;gt;&amp;lt;/tr&amp;gt;&amp;lt;/table&amp;gt;
73 &amp;lt;/td&amp;gt;&amp;lt;/tr&amp;gt;&amp;lt;/table&amp;gt;
74 HTML
75
76 close $fh;
77 }&lt;/pre&gt;&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;2. ×妨ШԷ¨ Øᨦãå ëШԷÞ.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;¶ÖáÖõ·½ ¦·ó ½Ô Ô¨ ãëÞóñë ¨å ã¨¢Þ ã û ãåÔñÒ Øᨦãå ëШԷ¨Ò ¦ ÔÔñµ. ÓÖÞ ØáÖ¬á ÒÒ  ¦ÖÐéÔ  ó ¢á åí ¦ ÔÔñ¨ · 㦨Рåí ·µ ¦ÖãåçØÔñÒ· û¨Òç-åÖ, ûåÖ ·µ Øᨦãå ëÐÞ¨å - åÖ, ûåÖ Þ á ¢Öå œ ã RSS Ô¨ ¦ÖÐéÔÖ ·Ò¨åí óÔ û¨Ô·Þ. à ÒÖ¬ç ó µÖå¨åí ØáÖ·óëÖ¦·åí HTML, TeX, ØáÖãåÖ½ å¨Æãå, ·Ð· ¦ é¨ Æ ÆÖ½-åÖ ªÖáÒ å, ÆÖåÖáñ½ Ô¨ ÒÖ¬ç 㨢¨ Øᨦãå ë·åí.&lt;br /&gt;&lt;br /&gt;ìÖóÒÖéÔÖ ÆåÖ-åÖ ó µÖû¨å Ô Ø·ã åí ãÖ¢ãåë¨ÔÔçœ ã·ãå¨Òç ¦ÐÞ á ¢Öåñ ã õ ¢ÐÖÔ Ò·, ÔÖ ÒÔ¨ Ôá ë·åãÞ ÒÖ¦çÐí Text::Template Ó áÆ -§é¨½ãÖÔ  §ÖÒ·Ôçã  (Mark-Jason Dominus). ×Ô ¦¨Ð ¨å ë㨠ûåÖ ÒÔ¨ Ô¨Ö¢µÖ¦·ÒÖ, Ô¨ åᨢç¨å ¦ÐÞ ãëÖ¨½ á ¢Öåñ ¦ÖØÖÐÔ·å¨ÐíÔñµ ØáÖ¬á ÒÒ · Ô Ø·ã Ô ØÖÐÔÖãåíœ Ô  Perl. è Ô¨¬Ö ØáÖãåÖ½ ·Ôå¨áª¨½ã · ÒÔ¨ Ô¨ åᨢç¨åãÞ ·óçû åí ÞóñÆ õ ¢ÐÖÔÖë, ØÖãÆÖÐíÆç õ ¢ÐÖÔñ ·ãØÖÐíóçœå Perl.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 2&lt;/span&gt; - ÷åÖ å  é¨ ØáÖ¬á ÒÒ , åÖÐíÆÖ ëÒ¨ãåÖ ëÔ¨¦á¨ÔÔÖ¬Ö HTML ·ãØÖÐíóç¨åãÞ Text::Template. ì ãåáÖƨ 5 Þ ·ÒØÖáå·áçœ Ò¨åÖ¦ fill_in_file(). ì ãåáÖƨ 13 çÆ óñë œ õ ¢ÐÖÔ, ÆÖåÖáñ½ ¢ç¦ç ·ãØÖÐíóÖë åí. ì¨ãí HTML, ·ãØÖÐíóç¨Òñ½ ØáÖ¬á ÒÒÖ½, å¨Ø¨áí ëñÔ¨ã¨Ô ë ª ½Ð õ ¢ÐÖÔ , Øá·ë¨¦¨ÔÔñ½ ë &lt;span style="font-style:italic"&gt;зãå·Ô¬¨ 3&lt;/span&gt;.&lt;br /&gt;&lt;br /&gt;ÓÖ¦çÐí Text::Template ÒÖé¨å Øá·Ô·Ò åí ¦ ÔÔñ¨ Æ Æ µ¨õ. ÇÐœû· µ¨õ  ãå ÔÖëÞåãÞ ·Ò¨Ô Ò· بá¨Ò¨ÔÔñµ ë õ ¢ÐÖÔ¨,   óÔ û¨Ô·Þ - óÔ û¨Ô·ÞÒ· بá¨Ò¨ÔÔñµ õ ¢ÐÖÔ ,   å Æé¨ ÖØᨦ¨ÐÞœå å·Ø بá¨Ò¨ÔÔñµ. ©ãз óÔ û¨Ô·¨ µ¨õ  ØáÖãåÖ½ ãÆ ÐÞá, بá¨Ò¨ÔÔ Þ õ ¢ÐÖÔ  ãÆ ÐÞá. ©ãз óÔ û¨Ô·¨ µ¨õ  -  ÔÖÔ·ÒÔñ½ Ò ãã·ë, بá¨Ò¨ÔÔ Þ õ ¢ÐÖÔ  - Ò ãã·ë, · å Æ ¦ Ð¨¨.&lt;br /&gt;&lt;br /&gt;×¢ž¨Æå, ãÖó¦ ë ¨Òñ½ XML::RSS -  ÔÖÔ·ÒÔñ½ µ¨õ. ÓÖ¦çÐí ØᨦÖãå ëÐÞ¨å  ¢ãåá ÆåÔñ½ ·Ôå¨áª¨½ã ¦ÐÞ ãÖó¦ Ô·Þ, ÔÖ Ô¨ ¦ÐÞ ¦ÖãåçØ . øåÖ Öåû ãå· ·Ò¨ÔÔÖ åÖ, ûåÖ Þ ¦ÖÐé¨Ô بᨦ åí ÒÖ¨Òç õ ¢ÐÖÔç. ì õ ¢ÐÖÔ¨ &lt;span style="font-weight:bold"&gt;$rss-&amp;gt;channel&lt;/span&gt;, ÆÖåÖá Þ ë Æ û¨ãåë¨ óÔ û¨Ô·Þ ãÖ¦¨áé·å  ÔÖÔ·ÒÔñ½ µ¨õ, ãå ÔÖë·åãÞ &lt;span style="font-weight:bold"&gt;%channel&lt;/span&gt;,   &lt;span style="font-weight:bold"&gt;$rss-&amp;gt;items&lt;/span&gt;, ãÖ¦¨áé ù Þ  ÔÖÔ·ÒÔñ½ Ò ãã·ë ãå ÔÖë·åãÞ &lt;span style="font-weight:bold"&gt;@items&lt;/span&gt;.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 2: ¸ãØÖÐíóÖë Ô·¨ õ ¢ÐÖÔ .&lt;/span&gt;&lt;br /&gt;&lt;div class="code"&gt;&lt;pre&gt;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, &amp;quot;&amp;gt; $base/$file.html&amp;quot;;
22
23 unless( $result )
24 {
25 warn &amp;quot;Could not open [$file] for writing! $!&amp;quot;;
26 next;
27 }
28
29 my $rss = XML::RSS-&amp;gt;new();
30 my $data = get( $url );
31 $rss-&amp;gt;parse( $data );
32
33 print fill_in_file( $template, HASH =&amp;gt; $rss );
34 close $fh;
35 }&lt;/pre&gt;&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;ìÔçåá· õ ¢ÐÖÔ  Text::Template ·ãØÖÐÔÞ¨å ¢ÐÖÆ· ÆÖ¦ , ÆÖåÖáñ¨ ÖÔ Ô µÖ¦·å Ò¨é¦ç ª·¬çáÔñÒ· ãÆ֢Ơҷ. ×Ô ó Ò¨ÔÞ¨å ¢ÐÖÆ ØÖãШ¦Ô·Ò ëñû·ãШÔÔñÒ ëñá é¨Ô·¨Ò. ¸Ò¨Ô  بá¨Ò¨ÔÔñµ - ÆÐœû· µ¨õ , ããñÐÆç Ô  ÆÖåÖáñ½ Þ Ø¨á¨¦ Ð ë Æ û¨ãåë¨  á¬çÒ¨Ôå  ªçÔƤ·· fill_in_file() ë ÆÖ¦¨, Øá·ë¨¦¨ÔÔÖÒ ë &lt;span style="font-style:italic"&gt;зãå·Ô¬¨ 2&lt;/span&gt;.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 3: HTML õ ¢ÐÖÔ.&lt;/span&gt;&lt;br /&gt;&lt;div class="code"&gt;&lt;pre&gt;1 &amp;lt;table cellpadding=1&amp;gt;&amp;lt;tr&amp;gt;&amp;lt;td bgcolor=&amp;quot;#000000&amp;quot;&amp;gt;
2 &amp;lt;table cellpadding=5&amp;gt;
3 &amp;lt;tr&amp;gt;
4 &amp;lt;td bgcolor=&amp;quot;#aaaaaa&amp;quot; align=&amp;quot;center&amp;quot;&amp;gt;
5 &amp;lt;a href=&amp;quot;{ $channel{link} }&amp;quot;&amp;gt;{
6
7 $image ? qq|&amp;lt;img src=&amp;quot;$image&amp;quot; alt=&amp;quot;$channel{title}&amp;quot;&amp;gt;| : $channel{title}
8
9 }&amp;lt;/a&amp;gt;&amp;lt;br&amp;gt;
10
11 { $channel{description} }
12 &amp;lt;/td&amp;gt;
13 &amp;lt;/tr&amp;gt;
14
15 &amp;lt;tr&amp;gt;
16 &amp;lt;td bgcolor=&amp;quot;#bbbbff&amp;quot; width=200&amp;gt;&amp;lt;font size=&amp;quot;-1&amp;quot;&amp;gt;
17 {
18 my $str;
19
20 foreach my $item ( @items )
21 {
22 $str .= qq|&amp;lt;b&amp;gt;&amp;gt;&amp;lt;/b&amp;gt;&amp;lt;a href=&amp;quot;$$item{link}&amp;quot;&amp;gt;$$item{title}&amp;lt;/a&amp;gt;&amp;lt;br&amp;gt;&amp;lt;br&amp;gt;\n|;
23 }
24
25 $str;
26 }&amp;lt;/font&amp;gt;&amp;lt;/td&amp;gt;
27 &amp;lt;/tr&amp;gt;
28 &amp;lt;/td&amp;gt;&amp;lt;/tr&amp;gt;&amp;lt;/table&amp;gt;
29 &amp;lt;/td&amp;gt;&amp;lt;/tr&amp;gt;&amp;lt;/table&amp;gt;&lt;/pre&gt;&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Ç Æ åÖÐíÆÖ ã·ãå¨Ò  õ ¢ÐÖÔÖë 󠦨½ãåÖë Ô , Þ ÒÖ¬ç Ò¨ÔÞåí Øᨦãå ëШԷ¨ Ô¨ Ò¨ÔÞÞ ÐÖ¬·Æç ÆÖ¦ . ©ãз Þ Øá·Òç á¨õ¨Ô·¨ ·óÒ¨Ô·åí ë·¦ Øᨦãå ëÐ¨Ô·Þ ¦ ÔÔñµ, Þ ØÖÒ¨ÔÞœ åÖÐíÆÖ õ ¢ÐÖÔ. ©ãз ÒÔ¨ ëÒ¨ãåÖ HTML åᨢç¨åãÞ ØáÖãåÖ½ å¨Æãå, Þ åÖÐíÆÖ ·óÒ¨Ôœ ØÖ¦ ÔÖëñ½ ªÖáÒ å õ ¢ÐÖÔ, Æ Æ ÷åÖ ã¦¨Ð ÔÖ ë &lt;span style="font-style:italic"&gt;зãå·Ô¬¨ 4&lt;/span&gt;.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 4: ö ¢ÐÖÔ ¦ÐÞ Ö¢ñûÔÖ¬Ö å¨Æãå .&lt;/span&gt;&lt;br /&gt;&lt;div class="code"&gt;&lt;pre&gt;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 }&lt;/pre&gt;&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;3. ×妨ШԷ¨ ÆÖÔª·¬çá ¤··.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;¶ÖáÖõ·½ ¦·ó ½Ô å Æé¨ ØÖóëÖÐÞ¨å  ¦ Øå·áÖë åí ãÆá·Øå Æ á óзûÔÖÒç ÖÆáçé¨Ô·œ. ì &lt;span style="font-style:italic"&gt;зãå·Ô¬¨ 1&lt;/span&gt; Þ é¨ãåÆÖ ØáÖØ·ã Ð óÔ û¨Ô·¨ ¦·á¨ÆåÖá·· ¦ÐÞ ëñëÖ¦ , ûåÖ ¦¨Ð ¨å ÒÖ½ ãÆá·Øå µáçØÆ·Ò - ¨ãз ÒÖÞ ¦ÖÒ õÔÞÞ ¦·á¨ÆåÖá·Þ ØÖÒ¨ÔÞ¨åãÞ, ãÆá·Øå ãÐÖÒ ¨åãÞ. ÇáÖÒ¨ åÖ¬Ö &lt;span style="font-style:italic"&gt;ë зãå·Ô¬¨ 2&lt;/span&gt; é¨ãåÆÖ ØáÖØ·ã ÔÖ ·ÒÞ õ ¢ÐÖÔ , Ô¨ãÒÖåáÞ Ô  åÖ ûåÖ Þ ÒÖ¬ç Ò¨ÔÞåí Øᨦãå ëШԷ¨, ·óÒ¨ÔÞÞ õ ¢ÐÖÔ. ÓÔ¨ ÔçéÔÖ ·Ò¨åí ëÖóÒÖéÔÖãåí ¦ ë åí Æ é¦ÖÒç õ ¢ÐÖÔç ãÖ¦¨áé å¨ÐíÔÖ¨ ·ÒÞ ëÒ¨ãåÖ ·ãØÖÐíóÖë Ô·Þ Ö¦ÔÖ¬Ö · åÖ¬Ö é¨ ·Ò¨Ô· ¦ÐÞ á óÔÖ¬Ö ãÖ¦¨áé·ÒÖ¬Ö.&lt;br /&gt;&lt;br /&gt;ÓÔÖ¬·¨ ãëÖ¢Ö¦ÔÖ-¦ÖãåçØÔñ¨ ãÆá·Øåñ, ÆÖåÖáñ¨ Þ Ô õ¨Ð ë ¸Ôå¨áÔ¨å åᨢçœå, ûåÖ¢ñ ØÖÐíóÖë å¨Ðí Öåᨦ Æå·áÖë Ð ë¨áµÔœœ û ãåí ãÆá·Øå  ·Ð· ëÆÐœû ¨Òçœ ¢·¢Ð·Öå¨Æç, ÆÖåÖá Þ ãÖ¦¨áé·å åÖÐíÆÖ ÆÖÔª·¬çá ¤·ÖÔÔñ¨ ¦ ÔÔñ¨. æ ÆÖ½ ØÖ¦µÖ¦ åᨢç¨å, ûåÖ¢ñ ÆÖÔ¨ûÔñ½ ØÖÐíóÖë å¨Ðí óÔ Ð ÖãÔÖëñ ÞóñÆ  ØáÖ¬á ÒÒ·áÖë Ô·Þ · Øá ë·Ð ãÆá·Øå - Öõ·¢Æ  ãÐÖÒ ¨å ãÆá·Øå. ÝÐÖµ·¨ ÆÖÔª·¬çá ¤·ÖÔÔñ¨ ¦ ÔÔñ¨ ÒÖ¬çå Øá·ë¨ãå· Æ Ô¨Öé·¦ ÔÔñÒ á¨óçÐíå å Ò, ÔÖ ÖÔ· Ô¨ ØÖÐÖÒ œå ØáÖ¬á ÒÒç.&lt;br /&gt;&lt;br /&gt;à ÒÖ¬ç çÆ ó åí å¨Æçù·¨ ÆÖÔª·¬çá ¤·ÖÔÔñ¨ ¦ ÔÔñ¨ Ô¨ãÆÖÐíÆ·Ò· ãØÖãÖ¢ Ò· · ØÖÆ éç åÖÐíÆÖ Ö¦·Ô ·ó Ô·µ. ¡áµ·ë Comprehensive Perl Archive Network (CPAN)&lt;span style="font-weight:bold"&gt;&lt;sup&gt;2&lt;/sup&gt;&lt;/span&gt; ãÖ¦¨áé·å Ô¨ãÆÖÐíÆÖ ÒÖ¦çШ½ ¦ÐÞ á ó¢Öá  ÆÖÔª·¬çá ¤·ÖÔÔñµ ª ½ÐÖë ë á óзûÔñµ ªÖáÒ å µ ·Ð·  á¬çÒ¨ÔåÖë ÆÖÒ Ô¦ÔÖ½ ãåáÖÆ·. §·ó ½Ô¨áñ ¦ÖÐéÔñ ëñ¢·á åí ØÖ¦µÖ¦, ÆÖåÖáñ½ ç¦ÖëШåëÖáÞ¨å ·µ Ôç馠Ò.&lt;br /&gt;&lt;br /&gt;ÇÖ¬¦  Þ ëبáëñ¨ Ô û Ð Ö妨ÐÞåí ¦ ÔÔñ¨ ÆÖÔª·¬çá ¤·· Öå ÒÖ·µ ãÆá·ØåÖë, Þ Ø¨á¨¢á Ð Ô¨ãÆÖÐíÆÖ ÒÖ¦çШ½ Ô  CPAN · Öãå ÔÖë·ÐãÞ Ô  ConfigReader::Simple, ÆÖåÖáñ½ ·ãØÖÐíóç¨å ØÖãåáÖûÔñ½ ªÖáÒ å ÆÐœû-óÔ û¨Ô·¨. à ·ãØÖÐíóÖë Ð ¨¬Ö Ô ãåÖÐíÆÖ û ãåÖ, ûåÖ Ô û Ð ÖåØá ëÐÞåí ÒÖ· ·óÒ¨Ô¨Ô·Þ £¨Æç ×¢¨á·Ôç (Bek Oberin),  ëåÖáç Öá·¬·Ô ÐíÔÖ½ ë¨áã··, ó å¨Ò ØÖÐÔÖãåíœ ëóÞÐ Ô  ã¨¢Þ ØÖ¦¦¨áéÆç ÒÖ¦çÐÞ.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 5&lt;/span&gt;  ¦ Øå·áç¨å &lt;span style="font-style:italic"&gt;зãå·Ô¬ 2&lt;/span&gt; Æ ·ãØÖÐíóÖë Ô·œ ConfigReader::Simple. à ãÖó¦ œ ÔÖëñ½ Ö¢ž¨Æå ÆÖÔª·¬çá ¤··, ó å¨Ò û·å œ óÔ û¨Ô·Þ ·ó Ö¢ž¨Æå . ÓÖ¦çÐí Øá¨Ö¢á óç¨å ·Ò¨Ô  ÆÐœû¨½ ÆÖÔª·¬çá ¤·· ë ·Ò¨Ô  Ò¨åÖ¦Öë ¦ÐÞ ØáÖãåÖ¬Ö ¦ÖãåçØ  (µÖåÞ ¦ÐÞ ¦ÖãåçØ  Æ óÔ û¨Ô·ÞÒ ÆÐœû¨½ ã ÷ÆóÖå·û¨ãÆ·Ò· ·Ò¨Ô Ò·, ÆÖåÖáñ¨ Ô¨ ÒÖ¬çå ¢ñåí Øá¨Ö¢á óÖë Ôñ ë ·¦¨Ôå·ª·Æ åÖáñ Perl Øá·µÖ¦·åãÞ ·ãØÖÐíóÖë åí Ò¨åÖ¦ get()). &lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 6&lt;/span&gt; ãÖ¦¨áé·å ÆÖÔª·¬çá ¤·ÖÔÔñ½ ª ½Ð.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 5: ¸ãØÖÐíóÖë Ô·¨ ConfigReader::Simple.&lt;/span&gt;&lt;br /&gt;&lt;div class="code"&gt;&lt;pre&gt;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-&amp;gt;new( './rss.config' );
10
11 my $base = $config-&amp;gt;base;
12 my $template = $config-&amp;gt;template;
13 my $extension = $config-&amp;gt;extension;
14
15 my @files = split /\s+/, $config-&amp;gt;files;
16
17 foreach my $url ( @files )
18 {
19 my $file = $url;
20
21 $file =~ s|.*/||;
22
23 my $result = open my $fh, &amp;quot;&amp;gt; $base/$file.$extension&amp;quot;;
24
25 unless( $result )
26 {
27 warn &amp;quot;Could not open [$file] for writing! $!&amp;quot;;
28 next;
29 }
30
31 my $rss = XML::RSS-&amp;gt;new();
32 my $data = get( $url );
33 $rss-&amp;gt;parse( $data );
34
35 print $fh fill_in_file( $template, HASH =&amp;gt; $rss );
36 close $fh;
37 }&lt;/pre&gt;&lt;/div&gt;&lt;br /&gt;&lt;span style="font-style:italic"&gt;Ñ·ãå·Ô¬ 6: « ½Ð ÆÖÔª·¬çá ¤··.&lt;/span&gt;&lt;br /&gt;&lt;div class="code"&gt;&lt;pre&gt;1 base .
2 template rss-html.tmpl
3 files http://use.perl.org/useperl.rss
4 extension html&lt;/pre&gt;&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;4. ô ÆÐœû¨Ô·¨.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;à ÒÖ¬ç çÒ¨Ôíõ·åí á óÒ¨á ÒÖ·µ ØáÖ¬á ÒÒ, Ö妨ÐÞÞ ÆÖ¦ Öå ÐÖ¬·Æ· Øᨦãå ëÐ¨Ô·Þ · ÆÖÔª·¬çá ¤·ÖÔÔÖ½ ·ÔªÖáÒ ¤··. øåÖ á ó¦¨Ð¨Ô·¨ ¦¨Ð ¨å ØáÖ¬á ÒÒç ¢ÖШ¨ ¬·¢ÆÖ½ · ØáÖãåÖ½ ë  ¦ Øå ¤·· Æ ÔÖëñÒ ÖÆáçé¨Ô·ÞÒ. ö ¢ÐÖÔñ ØÖóëÖÐÞœå ·óÒ¨ÔÞåí ëñëÖ¦,   ÆÖÔª·¬çá ¤·ÖÔÔñ¨ ª ½Ðñ çØá ëÐÞåí á ¢ÖåÖ½ ØáÖ¬á ÒÒñ ¢¨ó ·óÒ¨Ô¨Ô·Þ ÆÖ¦ . Text::Template · ConfigReader::Simple ¦¨Ð œå ÷åÖ Ô ãåÖÐíÆÖ ØáÖãåñÒ, Ô ãÆÖÐíÆÖ ëÖóÒÖéÔÖ.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;5. äãñÐÆ·&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;ì㨠ÒÖ¦çз, çØÖÒ·Ô ¨Òñ¨ ë ÷åÖ½ ãå åí¨, ÒÖéÔÖ Ô ½å· Ô  Comprehensive Perl Archive Network (CPAN) - &lt;a target="_blank" href="http://search.cpan.org"&gt;http://search.cpan.org&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;6. ×¢  ëåÖá¨.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;£á ½ Ô ¦¨ «Ö½ (brian d foy) - ·ó¦ å¨Ðí &lt;span style="font-style:italic"&gt;The Perl Review&lt;/span&gt;.&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;Ýá·Ò¨û Ô·Þ.&lt;/span&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;&lt;sup&gt;1&lt;/sup&gt;&lt;/span&gt; &amp;quot;Simple RSS with Perl&amp;quot; by brian d foy, The Perl Review v0 i5, November 2002, &lt;a target="_blank" href="http://www.theperlreview.com"&gt;http://www.ThePerlReview.com&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;span style="font-weight:bold"&gt;&lt;sup&gt;2&lt;/sup&gt;&lt;/span&gt; &lt;a target="_blank" href="http://search.cpan.org"&gt;http://search.cpan.org&lt;/a&gt;&lt;br /&gt;&lt;br /&gt;&lt;a target="_blank" href="http://www.theperlreview.com/Articles/v0i7/config.pdf"&gt;Öá·¬·Ô Ð ãå åí· Ô  Perl Review (PDF)&lt;/a&gt;
</description>
<author>ÑÖ¢ ÔÖë ¸¬Öáí &lt;authors@template-toolkit.ru&gt;</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>
Reference in New Issue View Git Blame Copy Permalink