Question

我试图通过阅读浏览器cookie（我之前使用Firefox登录创建）来消除网站登录过程。我使用此Firefox addon从Firefox导出它。它提供200 OK响应但返回通用主页而不是我自定义的“登录”主页。如何确保将cookie正确传递给服务器？

#!/usr/bin/perl 
use strict ;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies::Netscape;

my @GHeader    = (
                        'User-Agent'      => 'Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.0.19) Gecko/2010040200 Ubuntu/8.04 (hardy) Firefox/3.0.19',
                        'Accept'          => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
                        'Accept-Language' => 'en-us,en;q=0.5',                        
                        'Accept-Charset'  => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7',
                        'Accept-Encoding' => 'gzip,deflate',
                        'Keep-Alive'      => '300',
                        'Connection'      => 'keep-alive'
                  );

    my $cookie_jar = HTTP::Cookies::Netscape->new(
                          file => "cookies.txt",
                          );
    my $Browser = LWP::UserAgent->new;
    $Browser->cookie_jar( $cookie_jar );
    my ($OutLine,$response)=();    
    my  $URL = 'http://www.hanggliding.org/';
    printf("Get [%s]\n",$URL);
    $response = $Browser->get($URL,@GHeader);
    if($response->is_success)
    {
        if($response->status_line ne "200 OK")
        {
                printf("%s\n", $response->status_line);       
        }
        else
        {
            printf("%s\n", $response->status_line);                      
            $OutLine =$response->decoded_content;
            open(HTML,">out.html");printf HTML ("%s",$OutLine);close(HTML);
        }
    }
    else
    {
        printf("Failed to get url [%s]\n", $response->status_line);
    }

Answer 1

您可以inject a handler在处理过程中访问或修改请求/响应数据。

引用LWP :: UserAgent的文档：

处理程序是在处理请求期间在各个阶段注入的代码。提供了以下方法来管理活动处理程序：

$ ua＆gt; add_handler（$ phase =＆gt; \＆amp; cb，％matchspec）

添加要在给定处理阶段调用的处理程序。有关如何指定％matchspec的信息，请参阅HTTP :: Config中的“匹配”。

...

request_send =＆gt; sub {my（$ request，$ ua，$ h）= @_; ......}

此处理程序在将请求发送到协议处理程序之前有机会处理它们。如果希望终止处理，它应该返回一个HTTP :: Response对象;否则它应该什么也不返回。

从那里，你可以注入一个处理程序，它将分析请求对象，但不执行任何操作：

use LWP::UserAgent;
use Data::Dumper;

sub dump_request {
    my ($request, $ua, $h) = @_;
    print Dumper($request);
    return undef;
}

my $browser = LWP::UserAgent->new;

$browser->add_handler(
    request_send => \&dump_request,
    m_method => 'GET'
);

$browser->get('http://www.google.com');

使用LWP阅读Firefox cookie

1 个答案: