perl 用户代理检测web页面的小例子

发布时间:2020-11-20编辑:脚本学堂
本文分享一个使用用户代理检索web页面的perl代码,很简单,主要用于LWP模块,有需要的朋友不妨参考下。

perl模块LWP的例子,使用用户代理获取web页面信息。
代码:

复制代码 代码示例:

#!/usr/bin/perl -w

use LWP;
use strict;

my $browser = LWP::UserAgent->new(agent => 'Perly v1');
my $result = $browser->get("http://www.jb200.com/demo");
die "错误提示: ", $result->status_line() unless $result->is_success;

print $result->content;