perl で 画像を取得したい

質問

下記perlのコードを書いたのですが、なぜか、画像を取得することができません。
メモ帳で開くと、画像データっぽい文字列はあるのですが、普通に見ることができません。
なぜでしょうか？また、どのように改良すれば取得できますか？
ご存知の方教えていただけないでしょうか？
宜しくお願い致します。

$source = &GetImg('http://www.goo.ne.jp/img/logo/gootop_logo.gif');
$FileOut = "tmp.gif";
open(OUT, ">$FileOut");
print OUT $source;
close (OUT);

sub GetImg() {
my($url) = @_;
use LWP::UserAgent;
my $browser = LWP::UserAgent->new;
my $response = $browser->get($url,'User-Agent' => 'Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.5) Gecko/20031007');
my $img_file = $response->content;
return $img_file;
}

回答No.1

sakusaker7 · ベストアンサー

メモ帳ってでてくることはWindowsで使っているということでいいですね?

open(OUT, ">$FileOut");
binmode OUT; #← この行をここに追加
print OUT $source;

で行けると思います。

なぜこの行がないとダメなのかというと、0x0a というデータが来たときに
0x0d 0x0a というならびに変換してしまうので、gifデータとして
おかしなものになってしまっていたからです。

お礼

ばっちり動作しました。
回答いただきありがとうございました！！