getPic.pl 文件操作

最新推荐文章于 2014-06-03 19:39:02 发布

qinglangee

最新推荐文章于 2014-06-03 19:39:02 发布

阅读量243

点赞数

分类专栏： Perl 文章标签： Perl Java HTML

本文链接：https://blog.csdn.net/qinglangee/article/details/83531514

版权

Perl 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

#!/usr/bin/perl
use warnings;
use strict;
#aa.txt中找出图片链接，写入result.html中，可以用迅雷等批量下载
open SRC, "<aa.txt";
open DEST,">result.html";
my $count=0;
print DEST "<html><body>";
while(<SRC>){
    if(/(.*)(src=")(.*\.jpg)(.*)/){
        print $3."\n";
        print DEST "<a href='$3'>$3</a><br>\n";
        $count++;
    }
}
print DEST "</body></html>";
print "$count\n";

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

qinglangee

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
getPic.pl 文件操作

[code="java"]#!/usr/bin/perluse warnings;use strict;#aa.txt中找出图片链接，写入result.html中，可以用迅雷等批量下载open SRC, "result.html";my $count=0;print DEST "";while(){ if(/(.*)(src=")(.*\.jpg)(.*)/)...
复制链接

扫一扫