按文件列表下载

#!/usr/bin/perl -w use strict; use FindBin qw($Bin); use lib "$Bin/lib"; use LWP::Simple;#LWP( Library for Web access in Perl) use File::Path; sub shellcmd { my $str = shift; my $rv = system($str) >> 8; slog("shellcmd failed", $str) unless $rv == 0; return ($rv == 0 ? 1 : 0); } open FH, "mylist.txt" or die("can't not open config file/n"); while (my $myline = <FH>) { chomp $myline ; my @myp = split(////, $myline); # for my $c (@myp) { # shellcmd("echo c=".$c); # } my $len = scalar(@myp); shellcmd("echo len=".$len); my $dir="/data4"; for (my $i = 2; $i < $len-1; $i++) { $dir.="/".$myp[$i]; #print "$dir/n"; eval{shellcmd("mkdir ".$dir) unless -d $dir;} } #download my $downloadurl="http://www.ccc.com"; for(my $i=$len-3;$i<$len;$i++) { $downloadurl.="/".$myp[$i]; } my $df=$dir."/".$myp[$len-1]; my $myget = "wget -O ".$df." ".$downloadurl; #print $myget; eval{shellcmd( $myget) unless -e $df ;} } close FH;