使用perl通过url下载图像

Question

我的图像链接很少，我试图通过使用LWP :: Simple来下载它;

我用于下载图片的代码是

getstore($imglink, $name);

图片link

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

我也试过这个

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

但是我没有下载图片，请给我一些指导。 提前谢谢。

Answer 1

我添加了适当的使用者和饼干。试试这个：

#!/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;
}