Thread 301er Status-Code abfangen
(5 answers)
Opened by pktm at 2010-05-12 12:51
Hallo!
Wie kann ich herausfinden, ob eine Seite einen 301er oder 302er Staus-Code sendet? Wenn ich z.B. http://www.perl-community.de/ im Browser aufrufe, erhalte ich einen 302er, der mich auf Quote verweist. Wenn ich aber folgendes Skript ausführe, erhalte ich als Status 200 zurück: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl -w use strict; use warnings; use Data::Dumper qw/Dumper/; use Perl6::Say; use FindBin qw/$Bin/; my $url = 'http://board.perl-community.de/'; use LWP::UserAgent; use HTTP::Request; my $ua = LWP::UserAgent->new(); $ua->agent("MyApp/0.1 "); # Create a request my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); print $res->status_line(); Ich will aber den 302er identifizieren, also den ersten Statuscode, der zurück kommt. Oder läuft das so nicht? Grüße, pktm http://www.intergastro-service.de (mein erstes CMS :) )
|