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


页: [1]
查看完整版本: 复习perl..