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/IBM866/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.
This file contains Unicode characters that might be confused with other characters. 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="IBM866"?>
<!--
Source: http://forum.template-toolkit.ru/rss/forum_8.rss
Expect: IBM866
-->
<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