摘要:
之前用Scala和Go语言分别都写了一个爬虫,最近看了Perl,就来写个功能相同的版本。使用到了LWP::Simple模块,使用 cpan LWP安装即可(Ubuntu 13.04没有随Perl一同提供这个重要模块,太可惜了)。代码如下: 1 #!/usr/bin/perl 2 use LWP::Simple qw/get/; 3 4 my %pages; 5 print "Processing the index.\n"; 6 $_ = get("http://www.yifan100.com/dir/15136/"); 7 while(m#<a 阅读全文