用LWP的“get”指令从网上download了gif图像文档之后，如何把它储存？

danx_2000

拜托各位大侠，用LWP的“get”指令从网上download了gif图像文档之后，如何把它储存到一个本地的文件里？ 我的code如下：

use LWP::Simple qw/get/;
use MIME::Base64;

my $gif_addr = "http://www.daqi.com/common/header_img/logo.gif";         
my $gif_file = get $gif_addr or die "Can't get $gif_addr.";

my $gif_data = encode_base64($gif_file);

$ad_pict_new_file = "temp_1.gif";   
open(OUTHANDLE, ">$ad_pict_new_file");
print OUTHANDLE $gif_data;
close(OUTHANDLE);

。。。
执行后，temp_1.gif 的文件有错误。请各老大多指教呀。

Namelessxp

为什么要base64?
binmode(OUTHANDLE);

干脆,用getstore得了
getstore(url,storepath);

danx_2000

多谢。可是这个会不会 blocking呀？  

最重要的是如何把它存成一的 .gif 档案？

flw

原帖由 danx_2000 于 2006-10-7 15:47 发表
多谢。可是这个会不会 blocking呀？  

最重要的是如何把它存成一的 .gif 档案？

见二楼