亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 菜鳥的一個關于LWP::UserAgent的問題，請大家?guī)兔纯矗?[打印本頁]

作者: ludio333 時間: 2010-07-31 19:04
標題: 菜鳥的一個關于LWP::UserAgent的問題，請大家?guī)兔纯矗?br />#!/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頁面如果成功的話跳轉到b頁面
獲取到一個登陸a的cookie以及一個從a跳轉到b的cookie
擁有這兩個cookie才能訪問c頁面；
但以上代碼只能獲得一個登陸a的cookie，無法獲得那個跳轉的cookie，所以訪問c頁面存在權限問題

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

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

作者: ubuntuer 時間: 2010-08-01 09:27
應該可以從 COOKIE 環(huán)境變量里取得的

作者: ludio333 時間: 2010-08-02 10:17
自己頂一下
樓上的高手能說一下具體怎么寫嗎？
就像我說的php的那個方法

作者: ludio333 時間: 2010-08-02 11:52
沒人知道么???
我查到LWP::curl中有FOLLOWLOCATION的開關
但是LWP::UserAgent還是沒查到
希望有人能幫忙指點一下阿。。。

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

作者: ludio333 時間: 2010-08-02 13:51
本帖最后由 ludio333 于 2010-08-02 15:05 編輯

找到了

需要redirect_ok 設置為1

還在找方法。

歡迎光臨 Chinaunix (http://www.72891.cn/)