1

LWP::Simple を使用してダウンロードしようとしている画像のリンクはほとんどありません。

画像のダウンロードに使用するコードは

getstore($imglink, $name);

画像 リンク

リンクは機能しています。ブラウザでリンクを表示すると画像が表示されますが、ダウンロードできません。

私もこれを試しました

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

しかし、私は画像のダウンロードに失敗しています。いくつかのガイダンスを教えてください。前もって感謝します。

4

1 に答える 1

2

適切なユーザーエージェントと 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;
}
于 2013-10-12T12:32:27.873 に答える