#!/usr/bin/perl
use strict;
use warnings;
 
use HTTP::Request;
use HTTP::Cookies;
 
use LWP::UserAgent;
use Web::Scraper;
 
my $url         = 'http://www.php-oa.com/wp-login.php';
 
# 用来存 cookie 
my $cookie_jar  = HTTP::Cookies->new( 
        file        => "./cookies.lwp",
        autosave    => 1,
        );  
 
# 给处理 cookie 的对象放到 LWP::UserAgent 中来处理 cookie
# 登陆中
my $ua      = LWP::UserAgent->new;
my $cookies = $ua->cookie_jar($cookie_jar);
$ua->agent('Mozilla/6 [cn] (Ubuntu; Linux)');
my $res     = $ua->post( $url,
        [   
            log     => 'admin', 
            pwd    => 'passwd',
            'wp-submit' => 'Log In',
        ],  
    );  
 
# 根据重定向的地址，给原来的 cookie 拿上
my $redirect_to = $res->header('location');
my $req         = HTTP::Request->new(GET=>$redirect_to);
$cookie_jar->add_cookie_header($req); 
my $new_res     = $ua->request($req);
 
# 处理返回的结果 Response 取出自己要的内容
my $scraper = scraper {
    process '/html/body/div/div/div[2]/div/div[2]/div[2]/div/div/div/div[2]/div[2]/div/div/div/blockquote/p','comment[]' => 'TEXT';
};
my $result = $scraper->scrape( $new_res->content );
 
# 输出结果 
my @comments = @{ $result->{comment} };
for ( 0 .. $#comments ) {
    print "$_.  $comments[$_]\n";
}