用wget下载115网盘的文件

指定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);
}