image - 使用 perl 通过 url 下载图像

Question

我尝试使用 LWP::Simple 下载的图像链接很少；

我用于下载图像的代码是

getstore($imglink, $name);

图片 链接

链接有效，如果我通过浏览器看到链接，图像是可见的。但我无法下载它。

我也试过这个

open (FH,">$img_name");
binmode (FH); print FH $image_content; #close (FH);

但是我无法下载图像，请给我一些指导。提前致谢。

Answer 1

我添加了适当的用户代理和 cookie。尝试这个：

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $lwp = LWP::UserAgent->new(agent=>' Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0', cookie_jar=>{});

my $link = 'http://cdn.chv.me/images/thumbnails/7_Inch_Android_4_0_Tablet_zzMn_tSh.jpg.thumb_70x70.jpg';

my $resp = $lwp->mirror($link, '/tmp/i.jpg');

unless($resp->is_success) {
    print $resp->status_line;
}