写个perl程序自动下载《南方周末》（2005年12月最后一期，38版，值得一看） ...

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

写个perl程序自动下载《南方周末》（2005年12月最后一期，38版，值得一看） ...

原作者: [db:作者] 来自: [db:来源] 收藏邀请

今天是个好日子，不过，我还要为考试而奔腾不息啊！

首先还得向各位朋友送上我最诚意的祝愿：

祝朋友们元旦快乐！

在新的一年里，思路多多，创新多多，收藏多多！

好了，入正题。呵呵！
上网下载，难按鼠标,写个perl小程序来帮助自动化，呵呵。
有缺陷，不过想到了，还会改正的。欢迎同好朋友批评指正！

1use strict;
2use warnings;
3
4my $line;
5require LWP::UserAgent;
6require HTTP::Request;
7my $ua = LWP::UserAgent->new;
8
9open OUT_FILE,"+>>nanfang.txt" or die("Could not write nanfang.txt!");
10
11for(my $i=1;$i<10;$i++)
12{
13 my $string="http://www.nanfangdaily.com.cn/southnews/pdf/zm/20051229/0$i.pdf\n";
14 syswrite OUT_FILE,$string;
15}
16
17for (my $i=10;$i<=38;$i++) {
18 my $string="http://www.nanfangdaily.com.cn/southnews/pdf/zm/20051229/$i.pdf\n";
19 syswrite OUT_FILE,$string;
20}
21
22close OUT_FILE;
23#undef(OUT_FILE);
24
25#$ua->timeout(10);
26#$ua->env_proxy;
27#if (defined(\*OUT_FILE)){ print "OUT_FILE defined!";}
28
29open IN_FILE, "nanfang.txt" or die("Could not write nanfang.txt!");
30while($line=<IN_FILE>)
31{
32 chomp($line);
33 $line=~/(.*)\/(\d+.pdf)$/;
34
35 my $req = HTTP::Request->new(GET =>$line);
36 my $res = $ua->request($req, $2);
37
38      if ($res->is_success)
39    {
40         print $line;
41   }
42      else
43    {
44         print $res->status_line, "\n";
45  }
46}
47
48close IN_FILE;
49print "OK!";
50
51

献上Perl诗歌一首：