手机
当前位置:查字典教程网 >脚本专栏 >perl >python批量下载壁纸的实现代码
python批量下载壁纸的实现代码
摘要:复制代码代码如下:#!/usr/bin/envpython##python2.7-批量下载壁纸##壁纸来自桌酷网站,所有权归属其网站##本代...

复制代码 代码如下:

#! /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."

【python批量下载壁纸的实现代码】相关文章:

Perl AnyEvent中的watcher实例

使用Perl创建指定编码格式(如utf-8)文件的实现代码

perl ping检测功能脚本代码

Perl操作系统环境变量的脚本代码

perl对m x n类似表进行按列排序的代码

使用perl清理电脑上重复文件实现代码(续)

perl用变量做句柄介绍

perl Socket编程实例代码

perl的logwrapper使用实例代码

perl产生随机数实现代码

精品推荐
分类导航