论坛 › Perl › 复习perl..

gaoke 发表于 2018-8-30 12:40:22

复习perl..

#!/usr/bin/perl　　
use 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

查看完整版本: 复习perl..