Perl で Web アクセス４

ご訪問ありがとうございます。


「Perl で Web アクセス３」で「LWP::UserAgent」を勉強しました？

「LWP::UserAgent」だと、「ログイン」処理を行うことができ、
「goo」や「あし＠」の自分のページにアクセス出来る。

そこで、ブログに載せている画像をダウンロードしたくなった。
どうすればいいのかな？
画像(バイナリファイル)は、テキスト本文と違う！


最初は、
バイナリファイルの get と云うことで、
　open ( OT , ">保存ファイル名" );
の後で、
　binmode ( OT );
とし、
　$req = HTTP::Request->new( GET => "ＵＲＬ名" );
　print OT $ua->request($req)->as_string;
　close(OT);
としてみた。
出来たような出来ないような、・・・・・

結局ダメですね。
jpeg は表示はされたが、ファイル内容では先頭にゴミがあり、
png は不正な形式となって表示されない。


いろいろ調べた結果、
　use WWW::Mechanize;
を使うとうまく行くようです。
(うまく行きました。）

処理は、
　$w = WWW::Mechanize->new();
　$w->get( "ＵＲＬ名" , ":content_file"=>"保存ファイル名" );
とするだけ(？)です。
完璧でした。



と云うことで、また１つ勉強しました。　 　　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒

人気BlogRanking　⇒　

P-NETBANKING　⇒