指定115网盘下载地址,调用wget下载文件:
#!/usr/bin/perl
use LWP::Simple;
use Encode;
# USAGE : perl get_115_com.pl http://u.115.com/file/f546a1622d
my ($url) = @ARGV;
get_one_file($url);
sub get_one_file {
my ($url) = @_;
my $content=encode('cp936',get($url));
my ($file_name)=$content=~m{<h2.*?>(.*)?</h2>}s;
my @down_url = $content=~m{<a class="normal-down" href="(.*?)" }sg;
for my $i ( 1, 0, 2){
my $wget_cmd=qq{wget -c "$down_url[$i]" -O "$file_name"};
print $wget_cmd,"\n\n";
`$wget_cmd`;
}
return ($file_name, \@down_url);
}
请问怎么用……没学过这格式的代码
回复删除