关于网络的问题 抓取网页

CODE:

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

my $user = 'username';
my $pass = 'password';
my $login_url = 'http://www.google.com/login';

my $url = 'http://www.google.com';
my $ua = LWP::UserAgent->new("keep-alive");
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648; GreenBrowser)');
#自动保存读取cookie
$ua->cookie_jar(HTTP::Cookies->new('file'=>'cookie.txt', 'autosave'=>1,));

sub login {
        my $response = $ua->post($login_url, ['user'=>$user, 'password'=>$pass]);
}

sub get_page {
        my($url) = @_;
        my $response = $ua->get($url);
        return $response->content();
}

CODE:

$ua->post($login_url, ['user'=>$user, 'password'=>$pass]);

QUOTE:

原帖由 flw 于 2008-8-1 16:09 发表
把那个网页和你的用户名口令告诉我，我试试。