python批量下载壁纸的实现代码

所属分类: 脚本专栏 / perl 阅读数: 1189
收藏 0 赞 0 分享
复制代码 代码如下:

#! /usr/bin/env python

##python2.7-批量下载壁纸
##壁纸来自桌酷网站,所有权归属其网站
##本代码仅做为交流学习使用,请勿用于商业用途,否则后果自负
##Code by Dreamlikes

import re,urllib,urllib2

#保存图片的路径
savepath = 'd:\\picture\\'

#壁纸集合的URL,如下
url = 'http://www.zhuoku.com/zhuomianbizhi/game-gamewall/20120503162540.htm'
urlSource = urllib.urlopen(url).read()

pattern = re.compile(r'<a href="(\d+\(\d+\)\.htm)" ', re.M | re.S)
match = pattern.findall(urlSource)

if match:
for subUrl in match:
subUrlSource = urllib.urlopen(url[0:url.rfind('/')+1]+subUrl).read()
sPattern = re.compile(r'var thunder_url = "(.*)";')
picUrl = sPattern.findall(subUrlSource)[0]
getPic = urllib2.Request(picUrl)
getPic.add_header('Referer','http://www.zhuoku.com')

f = open(savepath+picUrl[picUrl.rfind('/')+1:],'wb')
f.write(urllib2.urlopen(getPic).read())
f.close()

print "All done."
更多精彩内容其他人还在看

Perl使用chdir的实例代码

Perl使用chdir的例子,供朋友们参考学习
收藏 0 赞 0 分享

perl特殊符号及默认的内部变量

perl特殊符号及默认的内部变量,有需要的朋友不妨参考下
收藏 0 赞 0 分享

perl中my与our的区别介绍

our 和 my 一样,都是对变量的声明,不过 our 声明的是包全局变量,而 my 声明的是词法变量
收藏 0 赞 0 分享

在vim中添加perl注释时无法对齐问题的解决方法

在使用vim编辑perl脚本时,每当输入#号时,#号都会跑到行首问题,需要的朋友可以参考下
收藏 0 赞 0 分享

perl 文件操作总结

perl 文件操作总结,需要的朋友可以参考下
收藏 0 赞 0 分享

Perl的经典用法分享

Perl的经典用法分享,学习perl的朋友可以参考下
收藏 0 赞 0 分享

perl文件操作的一些例子分享

有关perl文件操作的一些例子,供大家学习参考
收藏 0 赞 0 分享

perl 中的or与||的区别

or比||优先级低,除此之外,两者无区别
收藏 0 赞 0 分享

Perl中use和require用法对比分析

Perl 中的use和require,都是用来加载和引用Perl的模块,或者是子程序,区别在于Perl use是在当前默认的里面去寻找,一旦模块不在指定的区域内的化,用Perl use是不可以引入的
收藏 0 赞 0 分享

Perl合并文本的一段实例代码

Perl合并文本的一段实例代码,需要的朋友可以参考下
收藏 0 赞 0 分享
查看更多