Perl中LWP::UserAgent登录及HTTP::Cookies检查Cookie值的问题解决

我看到你在用Perl的LWP::UserAgent做自动化登录测试时遇到了两个核心问题：一是直接打印请求/响应对象输出了HASH引用，二是Cookie的提取和检查方式不对。下面一步步帮你修正脚本并解释原因：

问题1：直接打印对象导致HASH输出 #

你当前直接打印$req和$res，但HTTP::Request和HTTP::Response都是对象，直接打印会输出它们的内存引用（比如HTTP::Request=HASH(0x69e85a0)）。要打印完整的请求/响应内容，需要调用它们的as_string()方法。

问题2：CookieJar的错误使用 #

你创建了HTTP::Cookies对象，但没有关联到UserAgent，而且错误地打印了extract_cookies()的返回值——这个方法是用来从响应中提取Cookie到Jar里，它的返回值是传入的响应对象，所以才会输出HTTP::Response=HASH(...)。正确的做法是把CookieJar绑定到UserAgent，让它自动处理Cookie的存储和携带。

修正后的完整脚本 #

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;

# 假设$test_IP已经提前定义
my $test_IP = 'your-test-ip-here';

my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

# 创建并关联CookieJar到UserAgent，自动管理Cookie的存储与携带
my $cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);

# 构造登录POST请求
my $req = HTTP::Request->new(POST => "http://$test_IP/login");
$req->content_type('application/x-www-form-urlencoded');
my $postdata = 'object={"login":{"username":"test","password":"test"}}';
$req->content($postdata);

# 打印完整的请求内容（含头和体）
print "REQUEST is:\n", $req->as_string(), "\n";

# 发送请求并接收响应
my $res = $ua->request($req);

# 打印完整的响应内容（含头和体）
print "RESPONSE is:\n", $res->as_string(), "\n";

# 检查登录请求是否成功
if ($res->is_success) {
    print "Login succeeded!\n";
    # 打印所有响应头信息
    print "Response headers:\n", $res->headers()->as_string(), "\n";
} else {
    die "Login failed: ", $res->status_line, "\n";
}

# 打印CookieJar中存储的所有Cookie
print "Cookies stored in jar:\n", $cookie_jar->as_string(), "\n";

# 精准检查是否存在带HttpOnly属性的Cookie
my $has_httponly = 0;
# 遍历CookieJar中的每个Cookie条目，直接检查属性
$cookie_jar->scan(sub {
    my ($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, $hash) = @_;
    if (exists $hash->{httponly} && $hash->{httponly}) {
        $has_httponly = 1;
        print "Found HttpOnly Cookie: $key=$val\n";
    }
});

if ($has_httponly) {
    print "SUCCESS: HttpOnly cookie detected\n";
} else {
    print "FAILED: No HttpOnly cookie found\n";
}

关键修正点说明 #

1. 启用严格模式：添加use strict; use warnings;是Perl开发的最佳实践，能帮你提前发现语法和逻辑错误。
2. 关联CookieJar：通过$ua->cookie_jar($cookie_jar)让UserAgent自动处理Cookie，后续请求会自动携带存储的Cookie，无需手动提取。
3. 正确打印对象内容：用$req->as_string()和$res->as_string()输出完整的请求/响应文本，包括头信息和请求体。
4. 精准检查HttpOnly属性：使用scan()方法遍历CookieJar中的每个Cookie条目，直接检查其httponly属性，比正则匹配as_string()的输出更可靠。

内容的提问来源于stack exchange，提问作者Pooja