Cookie speichern mit LWP

[hotti]

hi Alexander,

Siehe HTTP::Cookies. Die Cookie-Jar-Datei enthält nur persistente Cookies.

Mit der scan-Methode kannst Du dir alle Cookies aufzählen lassen.

Ja, die Doku, während der thread hier so dahinschmorte, war ich auch nicht untätig ;-)

Es ist so, dass cookie_jar einen Cookie mit no expires irgendwie temporär behält und in den Request reinstopft und zwar solange, wie das Script, also der UA am Leben ist.

Mal ein bischen Code:

  
#!/usr/bin/perl  
###########################################################################  
my $cfile = "d:/tmp/lwpcookies.txt";  
###########################################################################  
use strict;  
use HTTP::Cookies;  
use LWP::UserAgent;  
  
my $ua = LWP::UserAgent->new;  
$ua->cookie_jar(HTTP::Cookies->new( file => $cfile, autosave => 1));  
  
my $req = HTTP::Request->new(GET =>"http://rolfrost/cgi-bin/trust.cgi?login=1;username=Hannes");  
  
my $res = $ua->request($req);  
  
print $ua->cookie_jar->as_string, "\n"; # oops, hier iser ja ;-)  
# Set-Cookie3: SID=99dd50c1848f3c65327bf01e01dabf95; path="/cgi-bin"; domain=rolfrost.local; discard; version=0  

Mit anderen Worten: cookie_jar nimmt mir soviel Arbeit ab, dass mein Bestreben, den Wert eines Session-Cookies auszulesen, eigentlich überflüssig ist.

Hotte