perlのLWP::Simpleを用いて画像をダウンロードしようと考えています。
コードは以下です。
##################
use LWP::Simple;
use strict;
use warnings;
my $url= "https://patentimages.storage.googleapis.com/WO2014002787A1/JPOXMLDOC01-appb-D000001.png";
my $time = time;
my $html = get($url);
open(OUT, ">$time.png");
print OUT $html;
close(OUT);
##################
このスクリプトを実行したところ,
Use of uninitialized value $html in print at test2.pl line 11.
というエラーが出ます。また,カレントディレクトリにダウンロードされた画像のサイズが0KBとなっており,開けません。
なぜ「$htmlが初期化されていない」というエラーが出るのか,理解できず質問させていただきます。
どなたかご教授お願いいたします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/09/03 02:40
2017/09/03 03:56
2017/09/03 05:11
2017/09/03 05:39
2017/09/03 09:55