Board logo

标题: [原创代码] Perl批量下载桌酷网站某个分类的壁纸 [打印本页]

作者: 523066680    时间: 2011-8-15 17:25     标题: Perl批量下载桌酷网站某个分类的壁纸

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

环境: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. $startYN=0;
  11. foreach (@test) {
  12. if (/img src/) {
  13. /href="([^"]+)".*alt="(.*)"/;
  14. print "$1 $2\n";
  15. $name=$2;
  16. system("wget -nc $main$1");
  17. $str=$1;
  18. $str=~s/.htm/\(1\).htm/;
  19. system("wget -nc $main$str");
  20. $str=~s/[^\/]+.htm$//; #获取中间关键地址段
  21. $file=$&;
  22. &test;
  23. }
  24. }
  25. <STDIN>;
  26. sub test() {
  27. print "$name $main $str $file";
  28. open READ,"<$file";
  29. foreach (<READ>) {
  30. if (/\(2\).htm/) {
  31. /(\d+)<\/a><\/li><\/div><\/div>/;
  32. $end=$1;
  33. }
  34. }
  35. close READ;
  36. mkdir "$name";
  37. chdir "$name";
  38. foreach (1..$end) {
  39. $file=~s/\(\d+\)/\($_\)/;
  40. print "\n$file";
  41. if (! -e $file) {
  42. system("wget -nc $main$str$file");
  43. }
  44. &getpic();
  45. }
  46. chdir "../";
  47. }
  48. sub getpic() {
  49. open READ,"<$file";
  50. $startYN+=1;
  51. $pan=$startYN % 4;
  52. foreach (<READ>) {
  53. if (/id="imageview" src="([^"]+)"/) {
  54. print "$1\n";
  55. if ($pan==0) {
  56. system("wget -nc $1");
  57. } else {
  58. system("start /min cmd /c wget -nc $1");
  59. }
  60. }
  61. }
  62. }
复制代码

作者: lxzzr    时间: 2011-8-15 17:55

我很好奇你这个表情怎么搞上去的....
作者: broly    时间: 2011-8-15 18:09

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

以前我很喜欢去桌酷下壁纸,现在没换过壁纸
作者: lxzzr    时间: 2011-8-16 08:43

out 了,汗...
作者: Hello123World    时间: 2011-8-18 11:16

本帖最后由 Hello123World 于 2011-8-18 11:19 编辑


可以发表情了?
作者: 523066680    时间: 2011-8-18 15:32

本帖最后由 523066680 于 2011-8-18 15:35 编辑
可以发表情了?
Hello123World 发表于 2011-8-18 11:16



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

倒是很想知道这些论坛表情去哪儿下载
酷猴  呆呆男  还有搜狐那里的 ...
作者: 523066680    时间: 2011-8-18 16:04

哦 查看属性的时候看到地址了
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    时间: 2011-8-18 16:16

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


作者: Hello123World    时间: 2011-8-18 16:41

回复 8# 523066680


    哈哈。
以前是不能发的,发出来就一些字符串。
作者: Batcher    时间: 2011-8-18 22:37

回复 6# 523066680


你DZ论坛自带的




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2