perl中LWP模組的使用

很久沒發貼了，今天發個文章，專門介紹下LWP模組常用的功能。

（1）最重要的一大功能是查看網頁源檔案，我們可以通過perl已有的方法查看網頁源檔案，然後可以進行適當的分析，得到自己想要的結果。perl指令碼如下：

 

#!/usr/local/bin/perl
use CGI qw(:all);
use LWP;

open (AIM,">F:/SFDA的原始碼") or die $!;

my $browser = LWP::UserAgent->new;

 

my $url = "http://app1.sfda.gov.cn/datasearch/schedule/search.jsp?tableId=43&tableName=TABLE43&columnName=COLUMN464%2CCOLUMN475&title=%D2%A9%C6%B7%D7%A2%B2%E1%BD%F8%B6%C8%B2%E9%D1%AF";
my $content = $browser->get($url)->content;

print AIM $content;
close AIM;
print header;

 

perldoc中對它的描述是：

The libwww-perl collection is a set of Perl modules which provides a simple and consistent application programming interface (API) to the World-Wide Web. The main focus of the library is to provide classes and functions that allow you to write WWW clients. The library also contain modules that are of more general use and even classes that help you implement simple HTTP servers.

 

可見LWP對於perl網路編程的重要性。