$html=`curl http://www.u148.net/article/69164.html`;
@img=$html=~m{<img.*?src="([^"]*)".*?>}g;
#print "$_\n" foreach @img;这一行代码是注释，出现问题是可以打开看看捕获的下载地址到底是什么
map {`wget $_`} @img;
常见问题
相关文章
猜你喜欢
- 用win32的internet模块来查看网页源代码 2015-12-14
- 不想做诗人的程序员不是一个好爸爸 2015-12-14
- 三行perl代码即可批量下载页面里面所有的图片 2015-12-14
- 生成字符串连接文本 2015-12-14
- 根据缩进深度格式化Lua代码 2015-12-14
- 匹配服务器 2015-12-14
- dijkstra的perl实现 2015-12-14
- 查看Linux下的个人主目录文件变化 2015-12-14
- Perl 使用 DBI 连接到 MySQL 数据库 2015-12-14
- Perl 使用 OLE 自动化来创建 Excel 图表 2015-12-14
