perl&lwp下载图片功能 - 平头弟

perl&lwp下载图片功能

2019-04-15 18:49发布生成海报

站内文章 / PIC单片机

14520 0

#!/usr/bin/perl -w


use strict;
use LWP::Simple;
binmode STDOUT,':encoding(UTF-8)';

my $imgurl = "http://imgsrc.baidu.com/forum/pic/item/0ff41bd5ad6eddc43453f36739dbb6fd536633f1.jpg";
my $geturl=undef;
   $geturl = get $imgurl;
   die "nothing" unless defined $geturl;
   open(my $IMAGE,">G:\perlcode\image\123.jpg");
   binmode $IMAGE;
   print $IMAGE  $geturl;

Ta的文章更多 >>

热门文章