perl下载图片

use LWP::Simple;

my $url='http://bbs.chinaunix.net/images/default/logo.gif';
my $content = get($url);
die "Couldn't get it!" unless defined $content;

my $logo = 'logo.gif';
open FH, ">$logo" or die "Can't open $logo for saving!";
binmode FH;
print FH $content;
close FH;

 

评论

2 楼 zk1878 2013-11-02  

必须的。。。。

1 楼 c4508 2013-10-17  

测过能用吗？