perl获取网页图片

只是一个红薯

use strict;
use LWP::Simple;
my $content;
print "请输入网址：";
chomp(my $soure=<STDIN>;
my $url="http://$soure";
$content = get($url) or die "Couldn't get it!\n";
my @a = split /\r?\n/, $content;
chomp @a;
open CONFIG,'>>:utf8','源码.txt';
print CONFIG $content;
close CONFIG;
my @img;
foreach(@a){
    if(/<img .*?src=\"(.*?(?\.gif)|(\.jpg)))\".*?>/){
        push  @img,$1;
   }
}
print "@img";

大家好！上面一段代码是包含了获取输入网页中的图片链接地址，存入@img中，我想从@img中下载图片并保存到本地，但是不成功，要不就保存一张图片就结束。
使用的是：
foreach(@img){
  my $url="$_";

getstore($url,$_ ) or die “get picture failed!”;  #不成功？
}

有人知道哪里错了吗?能指点下最好乐，谢谢！

lkk_super

getstore($url,$_ or die “get picture failed!”;  #不成功？


剩下半截括号捏？

只是一个红薯

刚敲键盘少打了一个），现在补上，但是foreach里getstore好像不怎么起作用回复 2# lkk_super


   

lkk_super

回复 3# 只是一个红薯


    getstore 函数肿么写的 贴出来啊~~~

只是一个红薯

他是LWP::Simple 模块下的一个函数。
getstore($url, $file)
Gets a document identified by a URL and stores it in the file. The return value is the HTTP response code.


回复 4# lkk_super


   

lanmeibanban

你确定捕捉到的图片地址都是http开始的完整路径么？相对路径的图片你getstore不到的吧。

只是一个红薯

是绝对路径，这是输出到txt中的图片链接地址回复 6# lanmeibanban


   

只是一个红薯

多谢大家！问题已经解决了，我使用的是：
foreach(1..$#img){
  my $url=  pop @img;
state  $i++;
getstore($url,"$i.jpg" ) or die "get picture failed!";  #成功
$url=0;
}
如果大家有更好的方法可以分享下

yashuer1989

我在windows 下。用bat下载了一个网站的图片。提取网址。不同网站有所不不同

zhou20071801

请教一下state什么作用？$i用全局变量都只保存一个，但是用state就可以回复 8# 只是一个红薯