模拟浏览器的POST请求 z

最新推荐文章于 2025-12-18 17:23:54 发布

转载最新推荐文章于 2025-12-18 17:23:54 发布 · 651 阅读

文章标签：

#浏览器 #jar #url #cookies #header #file

ALL 同时被 2 个专栏收录

200 篇文章

订阅专栏

Miscellaneous

82 篇文章

订阅专栏

本文介绍了一个使用 Perl 编写的 CGI 脚本示例，该脚本通过 LWP 模块实现网页登录及状态页面获取的功能。脚本展示了如何设置 UserAgent、管理 Cookies 以及发送 HTTP 请求。

#!/usr/bin/perl
#By yzjboy
use LWP::UserAgent;
use HTTP::Cookies;
my $datadir = $ENV{"DOCUMENT_ROOT"}."/cgi-bin";

##################################
my $url = 'http://www.serverq.com/logon.asp?login=xxxxx&password=xxxx';
my $ua = LWP::UserAgent->new;
my $cookie_jar = HTTP::Cookies->new( file => "$datadir/teqcookie.txt", autosave => 1 );
$ua->cookie_jar($cookie_jar);
$ua->agent( "Explorer" );
my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);
$cookie_jar->extract_cookies($response);
$ua->cookie_jar($cookie_jar);
# bis hierhin klappt alles... ich würde ne korrekte einloggseite bekommen wenn ich sie # ausgebe...
# auch der Cookie is erstellt
$url = 'http://www.server.com/status.asp';
$request = HTTP::Request->new(GET => $url);
$cookie_jar->add_cookie_header($request);
my $response = $ua->request($request);
my $content = $response->content();
print "$content";
exit;