perl网络爬虫--举例（登录论坛eetop）

最新推荐文章于 2024-03-06 18:55:35 发布

亓磊

最新推荐文章于 2024-03-06 18:55:35 发布

阅读量1.9k

点赞数

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/u011729865/article/details/52724201

版权

perl 专栏收录该内容

29 篇文章 11 订阅

订阅专栏

登录eetop论坛（http://bbs.eetop.cn/?fromuid=511311）的perl脚本实现。

步骤一：firefox里的firebug插件，获取post所需要的网址、参数信息。

抓包使用说明 - zhaoyangjian724的专栏 - 博客频道 - CSDN.NET
http://blog.csdn.net/zhaoyangjian724/article/details/46906833
手动登录eetop，利用firebug抓取post的网址和参数信息。
post的网址：
这里写图片描述
post的参数信息：

步骤二：perl脚本实现post过程。

#!/usr/bin/perl

use strict;
use warnings;

push(@INC,"d/tools/perl/perl-study/perl5");
use LWP;
print "this is libwww-perl-$LWP::VERSION\n";

my $browser = LWP::UserAgent->new;
my $url = "http://bbs.eetop.cn/logging.php?action=login&loginsubmit=yes&inajax=1";
require HTTP::Cookies;
$browser->cookie_jar(HTTP::Cookies->new(file => ".cookies.txt"));
my $response = $browser->post($url,
                              ["loginfield"=>"username",
                               "questionid"=>"0",
                               "username"=>"xxxxx",
                               "password"=>"xxxxx",
                               "formhash"=>"59bda889",
                               "referer"=>"",
                               "answer"=>"",
                               "cookietime"=>"2592000"
                              ]);
print $response->content;