在Perl中管理Cookie

Question

我正在處理一個Perl腳本，它必須從服務器上檢索文件。服務器需要由其他服務器在內部處理的身份驗證。我需要做的是檢索文件，首先，POST到一個驗證服務器，它將返回兩個cookie。然後我需要通過GET將這些cookie發送到具有我需要的文件的目標服務器。我正在尋找網絡，甚至在這裏舉例，但我仍然不清楚如何去做這件事。有人能告訴我一個如何做到這一點的例子嗎？

Answer 1

爲了實現餅乾的LWP::UserAgent對象是如此簡單：

my $ua = LWP::UserAgent->new(); 
$ua->cookie_jar({}); 

更多的例子參見本article。

Answer 2

您當然可以使用Net :: HTTP並查看返回的標頭以將cookie取出，然後在使用write_request（）時將它們反饋回來，但這很不方便。