[原创教程] [示例][LWP::UserAgent]Perl登录论坛并下载个人信息

#!/usr/bin/perl
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
my $res= $ua->post('http://bbs.bathome.net/logging.php?action=login',
    [
        loginsubmit=>"yes",
        floatlogin=>"yes",
        loginfield=>"username",
        username=>"账号",
        password=>"密码",
        questionid=>N,
        answer=>"提问答案",
        cookietime=>"2592000",
    ],
);

$res = $ua->get('http://bbs.bathome.net/memcp.php');

open(FILE, '>bathome.html');
print FILE $res->content;
close FILE;
复制代码