Perl批量下载桌酷网站某个分类的壁纸

523066680

只管下载，没有去理会细节上的事情，所以很多毛病可以挑~

环境：This is perl, v5.10.1 built for MSWin32-x86-multi-thread
(with 2 registered patches, see perl -V for more detail)

另外由于perl学的不精，借用wget ....

1. $main="http://www.zhuoku.com";
   
2. $somepage="http://www.zhuoku.com/zhuomianbizhi/dong/index-1.htm";
   
3. system("wget -O a.txt $somepage");
   
4. open READ,"<a.txt";
   
5. foreach (<READ>) {
   
6.         if (/div class="bizhiin"/) {$line=$_;}
   
7. }
   
8. close READ;
   
9. @test=split("</a>",$line);
   
10. 
    
11. $startYN=0;
    
12. 
    
13. foreach (@test) {
    
14.         if (/img src/) {
    
15.                 /href="([^"]+)".*alt="(.*)"/;
    
16.                 print "$1 $2\n";
    
17.                 $name=$2;
    
18.                 system("wget -nc $main$1");
    
19.                 $str=$1;
    
20.                 $str=~s/.htm/\(1\).htm/;
    
21.                 system("wget -nc $main$str");
    
22.                 $str=~s/[^\/]+.htm$//; #获取中间关键地址段
    
23.                 $file=$&;
    
24.                 &test;
    
25.         }
    
26. }
    
27. <STDIN>;
    
28. 
    
29. sub test() {
    
30.         print "$name $main $str $file";
    
31.         open READ,"<$file";
    
32.         foreach (<READ>) {
    
33.                 if (/\(2\).htm/) {
    
34.                         /(\d+)<\/a><\/li><\/div><\/div>/;
    
35.                         $end=$1;
    
36.                 }
    
37.         }
    
38.         close READ;
    
39.         mkdir "$name";
    
40.         chdir "$name";
    
41.                 foreach (1..$end) {
    
42.                         $file=~s/\(\d+\)/\($_\)/;
    
43.                         print "\n$file";
    
44.                         if (! -e $file) {
    
45.                                 system("wget -nc $main$str$file");
    
46.                         }
    
47.                         &getpic();
    
48.                 }
    
49.         chdir "../";
    
50. }
    
51. 
    
52. sub getpic() {
    
53.         open READ,"<$file";
    
54.         $startYN+=1;
    
55.         $pan=$startYN % 4;
    
56.         foreach (<READ>) {
    
57.                 if (/id="imageview" src="([^"]+)"/) {
    
58.                         print "$1\n";
    
59.                         if ($pan==0) {
    
60.                                 system("wget -nc $1");
    
61.                         } else {
    
62.                                 system("start /min cmd /c wget -nc $1");
    
63.                         }
    
64.                 }
    
65.         }
    
66. }

复制代码

lxzzr

我很好奇你这个表情怎么搞上去的....

broly

我很好奇你怎么没发现这是论坛自带的默认表情[偷笑]

以前我很喜欢去桌酷下壁纸，现在没换过壁纸

lxzzr

out 了，汗...

Hello123World

可以发表情了？

523066680

可以发表情了？
Hello123World 发表于 2011-8-18 11:16

    你们啊……  论坛第一次改版我就知道一定有酷猴表情啦
跟红联类似的版面。

倒是很想知道这些论坛表情去哪儿下载
酷猴  呆呆男  还有搜狐那里的 ...

523066680

哦 查看属性的时候看到地址了

http://www.bathome.net/images/smilies/coolmonkey/01.gif

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /l %%a in (1,1,20) do (
   
4.         set n=0%%a
   
5.         wget -nc http://www.bathome.net/images/smilies/coolmonkey/!n:~-2!.gif
   
6. )

复制代码

523066680

如果能弄到柏夫表情的话…… 哈哈~

Hello123World

回复 8# 523066680


    哈哈。
以前是不能发的，发出来就一些字符串。

Batcher

回复 6# 523066680


你DZ论坛自带的