菜鳥的一個關(guān)于LWP::UserAgent的問題，請大家?guī)兔�看看�?/a>

ludio333

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

my $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
my $res= $ua->post('https://1.php?forward=https://2.php',
    [
        user_id => '111',
        password => '111',
    ],

);
$ua->cookie_jar( {} );
$res = $ua->get('https://3.php');


print $res->content;


以上是根據(jù)一個登陸taobao的代碼改的；
實現(xiàn)的功能是登陸a頁面如果成功的話跳轉(zhuǎn)到b頁面
獲取到一個登陸a的cookie以及一個從a跳轉(zhuǎn)到b的cookie
擁有這兩個cookie才能訪問c頁面；
但以上代碼只能獲得一個登陸a的cookie，無法獲得那個跳轉(zhuǎn)的cookie，所以訪問c頁面存在權(quán)限問題

以上的功能已經(jīng)用php代碼實現(xiàn)了
php中curl_setopt  開啟 CURLOPT_FOLLOWLOCATION 就可以了
可以獲得到需要的cookie
LWP::UserAgent模塊中沒找到類似的函數(shù)

不知道perl怎么獲得到跳轉(zhuǎn)的那個cookie
請大家指點；
謝謝

ubuntuer

應(yīng)該可以從  COOKIE 環(huán)境變量里取得的

ludio333

自己頂一下
樓上的高手能說一下具體怎么寫嗎？
就像我說的php的那個方法

ludio333

沒人知道么???
我查到LWP::curl中有FOLLOWLOCATION的開關(guān)
但是LWP::UserAgent還是沒查到
希望有人能幫忙指點一下阿。。。

只是需要一個支持跳轉(zhuǎn)的參數(shù)；

ludio333

找到了



需要redirect_ok 設(shè)置為1

還在找方法。