[原创代码] 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 ....

$main="http://www.zhuoku.com";
$somepage="http://www.zhuoku.com/zhuomianbizhi/dong/index-1.htm";
system("wget -O a.txt $somepage");
open READ,"<a.txt";
foreach (<READ>) {
	if (/div class="bizhiin"/) {$line=$_;}
}
close READ;
@test=split("</a>",$line);

$startYN=0;

foreach (@test) {
	if (/img src/) {
		/href="([^"]+)".*alt="(.*)"/;
		print "$1 $2\n";
		$name=$2;
		system("wget -nc $main$1");
		$str=$1;
		$str=~s/.htm/\(1\).htm/;
		system("wget -nc $main$str");
		$str=~s/[^\/]+.htm$//; #获取中间关键地址段
		$file=$&;
		&test;
	}
}
<STDIN>;

sub test() {
	print "$name $main $str $file";
	open READ,"<$file";
	foreach (<READ>) {
		if (/\(2\).htm/) {
			/(\d+)<\/a><\/li><\/div><\/div>/;
			$end=$1;
		}
	}
	close READ;
	mkdir "$name";
	chdir "$name";
		foreach (1..$end) {
			$file=~s/\(\d+\)/\($_\)/;
			print "\n$file";
			if (! -e $file) {
				system("wget -nc $main$str$file");
			}
			&getpic();
		}
	chdir "../";
}

sub getpic() {
	open READ,"<$file";
	$startYN+=1;
	$pan=$startYN % 4;
	foreach (<READ>) {
		if (/id="imageview" src="([^"]+)"/) {
			print "$1\n";
			if ($pan==0) {
				system("wget -nc $1");
			} else {
				system("start /min cmd /c wget -nc $1");
			}
		}
	}
}
复制代码

lxzzr

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

broly

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

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

lxzzr

out 了，汗...

Hello123World

可以发表情了？

523066680

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

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

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

523066680

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

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

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

523066680

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

Hello123World

回复 8# 523066680


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

Batcher

回复 6# 523066680


你DZ论坛自带的