通過cookie名稱從cookie_jar中提取cookie

Question

我正在努力的是爲什麼LWP :: UserAgent不提供訪問者，以便我可以通過提供cookie的名稱來獲取我想要知道的關於cookie_jar中的cookie的所有信息。我意識到cookie_jar上有scan（）方法，但它似乎有很多開銷，爲如此基本的事情提供回調。這就是我現在所擁有的：

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Data::Dump qw (dump); 
use WWW::Mechanize; 

my $mech = WWW::Mechanize->new; 
$mech->get('http://www.nytimes.com'); 

my %cookies =(); 
$mech->cookie_jar->scan(\&check_cookies); 

dump \%cookies; 

sub check_cookies { 
    my @args = @_; 
    $cookies{ $args[1] } = { 
     version => $args[0], 
     val  => $args[2], 
     path  => $args[3], 
     domain => $args[4], 
     port  => $args[5], 
     path_spec => $args[6], 
     secure => $args[7], 
     expires => $args[8], 
     discard => $args[9], 
     hash  => $args[10], 
    }; 
} 

腳本的輸出是這樣的：

{ adxcs => { 
     discard => 1, 
     domain => ".nytimes.com", 
     expires => undef, 
     hash  => {}, 
     path  => "/", 
     path_spec => 1, 
     port  => undef, 
     secure => undef, 
     val  => "-", 
     version => 0, 
    },  
    RMID => { 
     discard => undef, 
     domain => ".nytimes.com", 
     expires => 1374340257, 
     hash  => {}, 
     path  => "/", 
     path_spec => 1, 
     port  => undef, 
     secure => undef, 
     val  => "02b4bc821c00500991212ba2", 
     version => 0, 
    },  
} 

所以，這給了我方便地訪問名字的cookie，但我在想，如果有一個更簡單的方法來做到這一點，或者如果有一個我不知道的有用的模塊。

Answer 1

$cookies->scan(sub 
{ 
    if ($_[1] eq $name) 
    { 
    print "$_[1] @ $_[4] = $_[2]\n"; 
    }; 
}); 

輸出將是例如：

sessionID @ www.nytimes.com = 1234567890 

---

編輯： >>

sub getCookieValue 
{ 
    my $cookies = $_[0]; 
    my $name = $_[1]; 
    my $result = null; 
    $cookies->scan(sub 
    { 
    if ($_[1] eq $name) 
    { 
     $result = $_[2]; 
    }; 
    }); 
    return $result; 
} 

，並使用它，像這樣：

print getCookieValue($cokies, 'sessionID');