perl在网页中抓取图片 binmode（转帖）

perl在网页中抓取图片 binmode

    今天在天涯上闲逛的时候，突然一个网页上面楼主贴了很多图片，都是满漂亮的，于是就想把这些图片都下载到本地的电脑上。以前用perl的LWP::Simple模块主要是提前里面的一些文本信息，基本上没碰到过什么障碍，不过这次下载图片可是第一次。利用以前下载文本信息的程序处理时，发现得到的图片内容都是二进制类型的，也就是这些get($url)出的结果是二进制的。后来在网上搜索到了一些解决方法，试了一下的确能够解决问题！

 

方法一：利用binmode函数将文件句柄转化下可以接受二进制的形式。

 

binmode 功能：

 

binmode FILEHANDLE

     Arranges for FILEHANDLE to be read or written in "binary" or "text" mode on systems where the run-time libraries distinguish between binary and text files. If FILEHANDLE is an expression_r, the value is taken as the name of the filehandle. Returns true on success, otherwise it returns undef and sets $! (errno).

 

codes:

 

#!usr/bin/perl

use strict;

use LWP::Simple;

 

my $url="http::/../abc.jpg";

open FILE,">abc.jpg" or die "$!";

my $outcome=get ($url);

binmode(FILE);

print FILE $outcome;                    # input your want picture into the file named abc.jpg

 

 

方法二： 利用函数getstore()

 

getstore()功能：

 

见文档！

 

code:

 

#!usr/bin/perl

use strict;

use LWP::Simple;

 

my $url="http::/../abc.jpg";

getstore($url,"abc.jpg") or die "get picture failed!";