Hallo Leute, ich habe ein riesiges Problem.
Ich möchte eine Seite auslesen,
welche beim Aufruf einen neuen Cookie setzt.
Ohne dessen gelange ich nicht zum eigentlichen Content der Seite.
Wie kann ich die Seite anfordern?
Mit meinem Code sieht es so aus:
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use URI::URL;
use HTTP::Cookies;
#my $url = URI::URL->new( "http://www.amazon.com/" );
my $url = URI::URL->new( "http://share.shutterfly.com/action/welcome?sid=8xxxxxxxxxxxxx/" );
my $ua = new LWP::UserAgent;
$ua->agent( "Cookie Checker/1.0" );
$ua->parse_head("FALSE");
my $request = new HTTP::Request(GET => $url);
my $response = $ua->request( $request );
my $cookie_jar = HTTP::Cookies->new;
$cookie_jar->extract_cookies( $response );
$cookie_jar->scan ( \&cb );
sub cb {
my ( $version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, $hash ) = map defined() ? $_ : '', @_;
print "Version: $version\n";
print "Key: $key\n";
print "Value: $val\n";
print "Path: $path\n";
print "Domain: $domain\n";
print "Port: $port\n";
print "Path_Spec: $path_spec\n";
print "Secure: $secure\n";
print "Expires: $expires\n";
print "Discard: $discard\n";
}
############ darauf erhalte ich folgene Infos:
Version: 0
Key: Bigipshare
Value: 1834094508.20480.000
Path: /
Domain: .shutterfly.com
Port:
Path_Spec: 1
Secure:
Expires:
Discard: 1
Version: 0
Key: cl.SFLY
Value: gts:1130160407656&gsi:67B587BE0425DB7B1D898CB1960968A7&gip:172.16.82.109
Path: /
Domain: .shutterfly.com
Port:
Path_Spec: 1
Secure:
Expires:
Discard: 1
Version: 0
Key: JSESSIONID
Value: 67B587BE0425DB7B1D898CB1960968A7
Path: /
Domain: share.shutterfly.com
Port:
Path_Spec: 1
Secure:
Expires:
Discard: 1
Version: 0
Key: fsid-share
Value: 1109
Path: /
Domain: share.shutterfly.com
Port:
Path_Spec: 1
Secure:
Expires:
Discard: 1
######### Hmm
Kann mir jemand weiterhelfen?
Datum: 24.10.2005-15:37
LWP und Cookie
