用LWP::UserAgent实现“Web浏览自动化”
Friday, 20. April 2007, 08:36:34
想用Perl做一个自动登录、自动发送请求并取得执行结果的程序，这时候通常要用到LWP::UserAgent。
做了一个POST数据的例子如下：
如果用SSL，需安装Crypt::SSLeay。
做了一个POST数据的例子如下：
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my %ua_option = (
agent => "Mozilla/5.0",
timeout => 180,
);
my $ua = LWP::UserAgent->new(%ua_option);
my $url = 'http://your.domain.here/script_name.cgi'; # or 'https://...';
my %form;
$form{USER_ID} = 'user_id';
$form{PASSWORD} = 'password';
my $req = POST($url, [%form]);
my $res = $ua->request($req);
if ($res->is_success) {
print $res->header("Content-Type") . "\n";
print $res->status_line . "\n";
print $res->code . "\n";
print $res->header("Server") . "\n";
#print $res->header("Client-SSL-Cipher") . "\n";
#print $res->header("Client-SSL-Cert-Subject") . "\n";
#print $res->header("Client-SSL-Cert-Issuer") . "\n";
#print $res->header("If-SSL-Cert-Object") . "\n";
print $res->content;
} else {
print $res->status_line . "\n";
}
如果用SSL，需安装Crypt::SSLeay。
WIDGETIZE