[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创代码] 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. }
复制代码
2

评分人数

回复 6# 523066680


你DZ论坛自带的
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 8# 523066680


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

TOP

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

TOP

哦 查看属性的时候看到地址了
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. )
复制代码

TOP

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



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

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

TOP

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


可以发表情了?

TOP

out 了,汗...

TOP

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

以前我很喜欢去桌酷下壁纸,现在没换过壁纸
---学无止境---

TOP

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

TOP

返回列表