下载图片

下载图片
我用以下代码抓了HTML页面
#!/usr/bin/perl
use HTTP::Client;
my $client = HTTP::Client->new();
my $site = $client->get("http://www.csc.liv.ac.uk/");
my @headers = $client->response_headers;
my $agent = $client->agent;
print $site;

如果页面中有一些图片, 我也想抓下来, 请问如何做呢?(我可以知道图片地URL)

多谢!!!

遍历这个页面中的所有图片.
遍历这个页面中的所有图片地址,然后再 get 下来

我用了,但是得到的是404的.
我用了,但是得到的是404的错误,(图片的地址保证没错, 而且换了好几个网站都是这样)

谢谢

[quote]--#!/usr/bin/pe.
[quote]
#!/usr/bin/perl
# cnhacktnt {a t} perlchina.org
# http://perlchina.org or http://wanghui.org

use LWP::Simple;

$url='http://www.csc.liv.ac.uk/';
$content=get $url;

if ($content) {
while ($content=~ m/src="(.+?)"/gi) {
$imgurl=$1;

if ($imgurl=~ m/^(?:http|HTTP).*\/(.*)$/) {

$filename=$1;
$imgs{$filename}=$imgurl;

}else{

$imgurl=~ m/"(.+?)"$/;
$filename=$1;
$imgs{$filename}=$url.$imgurl;

}
}
for (keys %imgs) {
print "Getting $imgs{$_},save as $_\n";
getstore $imgs{$_},$_;
}
}
[/quote]

这个代码只针对 www.csc.liv.ac.uk 当前的首页有效,也就是说用它去抓其他网页的图片可能会得到一些不想要的东西,另外如果 www.csc.liv.ac.uk 的首页代码风格变了,也可能抓到不想要的东西
要想你的代码能抓不管哪个站的图片,正则匹配那里需要自己改一改,或者 http://search.cpan.org 上找相关的模块

   

我在CPAN 上也找到了另外一种方法
多谢了
我在CPAN 上也找到了另外一种方法.
我也贴上来把.
#!/usr/bin/perl
use Image::Grab;
$pic = new Image::Grab;
$pic->url('http://album.9you.com/pic/comicphoto/98/uqh1116383139.jpg');
$pic->grab;
open(IMAGE, ">image.jpg") || die"image.jpg: $!";
binmode IMAGE; # for MSDOS derivations.
print IMAGE $pic->image;
close IMAGE;

   

又会学了一些知识.那要是想利用在线的软件,提交一些任务,是不是也有这样的模块?和这个差不多么?