LWP module 里面的COOKIE 有人熟悉吗

ruiqingzheng

UID: 31624
帖子: 108
积分: 248
在线时间: 16 小时

1^# ruiqingzheng 发表于 2008-07-28 17:50

LWP module 里面的COOKIE 有人熟悉吗

最近用到LWP 自动登陆站点，但是需要COOKIE支持

[Copy to clipboard] [ - ]

CODE:

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

use LWP;
my $browser = LWP::UserAgent -> new;
my $login_frm = "https://www.xxx.com/xxx";

$browser->cookie_jar( HTTP::Cookies->new(
'file' => '/tmp/cookies.lwp',
'autosave' => 1,
  ));

$browser->cookie_jar( HTTP::Cookies::Netscape->new(
'file' => '/tmp/cookies.lwp',
  ));

$browser->agent('Mozilla/4.76 [en] (Win98; U)');

my $response = $browser -> post($login_frm,
      [
            'Username' =>'abcde123',
            'Passwd'=>'abcde123',
      ]
);

print $response -> content;
die "$login_frm error: ", $response->status_line
unless $response->is_success;
die "Weird content type at $login_frm -- ", $response->content_type
unless $response->content_type eq 'text/html';

print $response -> content;

比如像上面的代码依然是提示需要COOKIE支持请问LWP 要如何使用COOKIES 来对提交表单等操作呢，有没有好点的文章
先谢谢了

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-07-28 17:55

我一般都是这样：
$ua->cookie_jar( {} );
就可以了。

xiaoshengcaicai

UID: 22139
帖子: 174
积分: 400
在线时间: 1 天 17 小时

3^# xiaoshengcaicai 发表于 2008-07-28 22:57

同上

如果要保存cookie为文件

要加上ignore_discard => 0的参数

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-07-29 17:40

QUOTE:

原帖由 xiaoshengcaicai 于 2008-7-28 22:57 发表
同上

如果要保存cookie为文件

要加上ignore_discard => 0的参数

你的 catalyst 教程很不错！