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;
页:
[1]