Problemer med Cookies

[W0odY]

Noen som har noen gode cookies eksempel coder?

Sende..

Hente ut..

Osv..

[Torbjørn]

er en del gode eksempler i perldoc CGI og perldoc LWP::UserAgent

 

Hvis du har en egen httpklient som trenger å håndtere cookies, gjøres det best slik foreslått i perldoc LWPUserAgent:

 

#!/usr/bin/perl
use LWP::UserAgent;
use strict;

my $ua = new LWP::UserAgent;

# LWP::UserAgent lager et HTTP::Cookies objekt vha
# denne funksjonen
$ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });

# Nå vil alle cookies hentes ut og settes i forbindelse med alle get() og post() kall, eks:
$ua->get('http://www.itavisen.no');

print$ua->cookie_jar->as_string;

 

Kjøring av det programmet gir følgende output for meg:

torbjorn@intern(~/perl)$ perl test.pl
Set-Cookie3: PHPSESSID=779373f7b825bfc323525a0afef8e939; path="/"; domain=www.itavisen.no; path_spec; discard; version=0

 

ergo httpklienten fanger opp cookien automatisk uten at vi ber om det (den vil også sende cookie'n videre som seg hør og bør ved videre browsing)