Opened by vitopetre at 2010-04-11 23:27
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
Ja du hast recht. Es liegt tatsächlich daran, dass weitergeleitet wird. Das Probblem lässt sich mit "LWP::Simple" nicht lösen. Du musst auf 
LWP::UserAgent umsteigen.
aus einem "get" wird dann:
Selbst verständlich kannst du auch nur Warnungen ausgeben, oder eine if-else Struktur mit alternative erzeugen. "die" halt am "einfachsten".
Das "HTTP::Response"-Objekt in "$response" hast die Methode "base" mit der man die URL (ein "URI::http"-Objekt) bekommt, mit der die Seite vom Server geholt wurde. Die muss man verwenden, wenn man relative Links auf der Seite in absolute umwandeln will.
LWP::UserAgent umsteigen.aus einem "get" wird dann:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
# Das ist das LWP::UserAgent-Objekt, # über das du nun alle Zugriffe machst # Das sollte recht früh initalisiert werden my $http_get=LWP::UserAgent->new(); ... # irgend ein link: my $site='http://www.dlib.org/rss/dlib.rss'; ... my $response=$http_get->get($site); unless($response->is_success()) { die(qq(ERROR: could not get "$site" MESSAGE:).$response->as_string()."\n"); } print "REAL URL:".$response->base()->as_string()."\n"; my $xml_data=$response->decoded_content(); ...
Selbst verständlich kannst du auch nur Warnungen ausgeben, oder eine if-else Struktur mit alternative erzeugen. "die" halt am "einfachsten".
Das "HTTP::Response"-Objekt in "$response" hast die Methode "base" mit der man die URL (ein "URI::http"-Objekt) bekommt, mit der die Seite vom Server geholt wurde. Die muss man verwenden, wenn man relative Links auf der Seite in absolute umwandeln will.