�� , ��, � ��

Tue, 28 Dec 2004 19:07:19 GMT

�� Perl Review �� (brian d foy) "Separating Code, Presentation, and Configuration". �� .

�� .

� �� , �� , �� .

1. ��.

� �� , �� , �� Rich Site Summaries (RSS) � �� -��¹. � �� , �� , � �� .

�� 1 �� , �� . � �� @files �� , �� , $base - ��, �� , � �� print �� HTML � �� (�� HTML-�� CGI). �� . �� , � �� , �� -�� .

�� 1: �� RSS � �� .

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, "> $base/$file.html";
27
28	  unless( $result )
29	    {
30	    warn "Could not open [$file] for writing! $!";
31	    next;
32	    }
33
34	  select $fh;
35
36	  my $rss = XML::RSS->new();
37	  my $data = get( $url );
38	  $rss->parse( $data );
39
40	  my $channel = $rss->{channel};
41	  my $image = $rss->{image};
42
43	  print <<"HTML";
44	  <table cellpadding=1><tr><td bgcolor="#000000">
45	  <table cellpadding=5>
46	    <tr><td bgcolor="#aaaaaa" align="center">
47	HTML
48
49	  if( $image->{url} )
50	    {
51	    my $img = qq|<img src="$$image{url}" alt="$$channel{title}">|;
52	    print qq|<a href="$$channel{link}">$img</a><br>\n|;
53	    }
54	  else
55	    {
56	    print qq|<a href="$$channel{link}">$$channel{title}</a><br>\n|;
57	    }
58
59	  print <<"HTML";
60	  <font size="-1">$$channel{description}</font>
61	  </td></tr>
62	  <tr><td bgcolor="#bbbbff" width=200><font size="-1">
63	HTML
64
65	  foreach my $item ( @{ $rss->{items} } )
66	    {
67	    print qq|<b>></b><a href="$$item{link}">$$item{title}</a><br><br>\n|;
68	    }
69
70	  print <<"HTML";
71	    </font></td></tr>
72	  </td></tr></table>
73	  </td></tr></table>
74	HTML
75
76	  close $fh;
77	  }

2. �� .

�� . �� -��, �� - ��, �� RSS �� . � �� HTML, TeX, �� , �� -�� , �� .

�� -�� , �� Text::Template ��-�� (Mark-Jason Dominus). �� , �� Perl. � �� , �� Perl.

�� 2 - �� , �� HTML �� Text::Template. � �� 5 � �� fill_in_file(). � �� 13 �� , �� . �� HTML, �� , �� , �� 3.

�� Text::Template �� . �� , � �� - �� , � �� . �� , �� . �� - �� , �� - ��, � �� .

��, �� XML::RSS - �� . �� , �� . �� , �� . � �� $rss->channel, �� , �� %channel, � $rss->items, �� @items.

�� 2: �� .

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, "> $base/$file.html";
22
23	  unless( $result )
24	    {
25	    warn "Could not open [$file] for writing! $!";
26	    next;
27	    }
28
29	  my $rss = XML::RSS->new();
30	  my $data = get( $url );
31	  $rss->parse( $data );
32
33	  print fill_in_file( $template, HASH => $rss );
34	  close $fh;
35	  }

�� Text::Template �� , �� . �� . �� - �� , �� fill_in_file() � ��, �� 2.

�� 3: HTML ��.

1	<table cellpadding=1><tr><td bgcolor="#000000">
2	<table cellpadding=5>
3	  <tr>
4	    <td bgcolor="#aaaaaa" align="center">
5	    <a href="{ $channel{link} }">{
6
7	    $image ? qq|<img src="$image" alt="$channel{title}">| : $channel{title}
8
9	    }</a><br>
10
11	    { $channel{description} }
12	    </td>
13	  </tr>
14
15	  <tr>
16	    <td bgcolor="#bbbbff" width=200><font size="-1">
17	{
18	    my $str;
19
20	    foreach my $item ( @items )
21	      {
22	      $str .= qq|<b>></b><a href="$$item{link}">$$item{title}</a><br><br>\n|;
23	      }
24
25	    $str;
26	}</font></td>
27	  </tr>
28	</td></tr></table>
29	</td></tr></table>

�� , � �� . �� , � �� . �� HTML �� , � �� , �� 4.

�� 4: �� .

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	}

3. �� .

�� . � �� 1 � �� , �� - �� , �� . �� 2 �� , �� , �� . �� .

�� -�� , �� , �� , �� . �� , �� - �� . �� , �� .

� �� . �� Comprehensive Perl Archive Network (CPAN)² �� . �� , �� .

�� , � �� CPAN � �� ConfigReader::Simple, �� -��. � �� , �� (Bek Oberin), �� , �� .

�� 5 �� 2 � �� ConfigReader::Simple. � �� , �� . �� (�� , �� Perl �� get()). �� 6 �� .

�� 5: �� ConfigReader::Simple.

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->new( './rss.config' );
10
11	my $base = $config->base;
12	my $template = $config->template;
13	my $extension = $config->extension;
14
15	my @files = split /\s+/, $config->files;
16
17	foreach my $url ( @files )
18	  {
19	  my $file = $url;
20
21	  $file =~ s|.*/||;
22
23	  my $result = open my $fh, "> $base/$file.$extension";
24
25	  unless( $result )
26	    {
27	    warn "Could not open [$file] for writing! $!";
28	    next;
29	    }
30
31	  my $rss = XML::RSS->new();
32	  my $data = get( $url );
33	  $rss->parse( $data );
34
35	  print $fh fill_in_file( $template, HASH => $rss );
36	  close $fh;
37	  }

�� 6: �� .

1	base .
2	template rss-html.tmpl
3	files http://use.perl.org/useperl.rss
4	extension html

4. ��.

� �� , �� . �� . �� , � �� . Text::Template � ConfigReader::Simple �� , �� .

5. ��

�� , �� , �� Comprehensive Perl Archive Network (CPAN) - http://search.cpan.org

6. �� .

�� (brian d foy) - �� The Perl Review.

��.

¹ "Simple RSS with Perl" by brian d foy, The Perl Review v0 i5, November 2002, http://www.ThePerlReview.com

² http://search.cpan.org

�� Perl Review (PDF)

������ Template Toolkit : ���������� ��� ������ � ��������� � Perl

���������� ����, �������������, � ������������

�� Template Toolkit : �� Perl

�� , ��, � ��