- 论坛徽章:
- 0
|
我跑到ubuntu下面来试了,好像下载速度本来就很慢阿……
改了代码
- #!/usr/bin/perl
- foreach $number (51..63) {
- system("wget --output-document link.html http://art.gnome.org/backgrounds/nature?page=$number");
- open READ,"link.html";
- @lines=<READ>;
- close READ;
- $rcd="#";
- $http="http://ftp.gnome.org/pub/GNOME/teams/art.gnome.org/backgrounds/";
- $i=0;
- foreach (@lines) {
- if (s#.*<option value="/backgrounds/nature/\d*/##i) {
- s#">##;
- @tmp=split("_",$_);
- next if ($tmp[0]=~/$rcd.*/);
- $rcd=$tmp[0];
- $i+=1; $pan=$i % 3;
- if ($pan == 0) {
- system("wget -nc $http$_ ");
- } else {
- system("gnome-terminal --zoom=0.1 -e \"wget -nc $http$_\"");
- }
- }
- }
- }
- print "OVER";
- <STDIN>;
复制代码 |
|