Perl測試（自動化）檢查Cookie屬性並顯示通過或失敗

Question

如何編寫Perl模塊程序以檢查cookie屬性的安全cookie或Httponly標誌並顯示結果是否包含使用測試模塊的安全和Httponly標誌。下列是Cookie.please的代碼可以有人給代碼。

use strict; 
use LWP::simple; 
use LWP::UserAgent; 
use HTTP::Request; 

my $URL = 'https://www.gmail.com/'; 

my $ua = LWP::UserAgent->new(); 
my $header = HTTP::Request->new(GET => $URL); 
my $request = HTTP::Request->new('GET', $URL, $header); 
my $response = $ua->request($request); 


print $_ foreach @ {$response->headers()->{'set-cookie'}}; 

Answer 1

下面是一些閱讀：http://lwp.interglacial.com/ch11_01.htm

這是要餅乾保存到一個文件，那麼你可以檢查文件：

use HTTP::Cookies; 
my $cookie_jar = HTTP::Cookies->new(
    file  => "/some/where/cookies.lwp", 
    autosave => 1, 
); 
my $browser = LWP::UserAgent->new; 
$browser->cookie_jar($cookie_jar);