近来在看python教程…晚上想把一个网站上的demo下载下来。偷懒用perl写了个脚本。

查看code文件 用sed来匹配出url到方法还没想到。。

好像用wget -r的话倒是可以实现把这些文件下到本地，但是好像把整站都下下来了。

说实话，perl好久没用了…

#!/usr/bin/perluse strict;use warnings;my $index = 'www.greenteapress.com/thinkpython/code';my $getPage = `wget $index`;print $getPage;sub wget_urls($){  my $file = 'code';  my ($url,$filename,$cmd) = @_;  open(F,$file) or die ("$!");    while(
     
      )    {      if ($_ =~ m/\
      \w+\.*/)      {        $url = $1;        $filename = $index . "/" . $url;        $cmd = `wget $filename`;        print $cmd;      }    }  close(F);}&wget_urls