Promicha: Cookie mit LWP::UserAgent (HTTP::Cookie) senden an WWW

Beitrag lesen

LWP unterstützt keine Cookies.
du solltest CWP::ContentLang für sowas verwenden!!

Leider kenne ich dieses Modul nicht.

Und laut Doc. kann ich den Cookie mit LWP senden
-----------------------------------
$ua=LWP::UserAgent->new();
$jar=HTTP::Cookie->new();
$jar->....??? name=value ????
$ua->cookie_jar($jar);
$ua->agent($ENV{'HTTP_USER_AGENT'});
...etc.
------------------------------------

Ansonsten gebe es noch ne andere einfachere möglichkeit,
ABER auch da weiss ich jetzt nicht was man screiben muß:
----------
use Socket;
$url = "www.die-url.com";
($host, $uri) = ($url =~ m!http://(.*?)(/.*)!);
$inhalt;
socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp');
connect SOCK, sockaddr_in(80, inet_aton($host));
send SOCK, "GET $uri HTTP/1.0\r\nHost: $host\r\n
             Cookie: ??????-was schreibe ich-??????? \r\n\r\n", 0;
0 while <SOCK> !~ /^\r\n$/;
$inhalt .= $_ while <SOCK>;
close SOCK;
-----------
Ich müßte dann haltmal wissen wie der HTTP-Header aussieht der vom
Browser gesendet wird.

grüße Micha