清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

$html=`curl http://www.u148.net/article/69164.html`;
@img=$html=~m{<img.*?src="([^"]*)".*?>}g;
#print "$_\n" foreach @img;这一行代码是注释，出现问题是可以打开看看捕获的下载地址到底是什么
map {`wget $_`} @img;