复习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
页:
[1]