HTTP Header auslesen

[Robert Allerstorfer]

Hi,

wie kann man mit Perl (mithilfe des moduls LWP) den gesamten response @header einer HEAD anfrage eines bestimmten URLs $url bekommen?

danke für gute lösungsansätze,

rob.

[n.d. parker]

Moin,

wie kann man mit Perl (mithilfe des moduls LWP) den gesamten response @header einer HEAD anfrage eines bestimmten URLs $url bekommen?

etwa so, wie in perldoc LWP::UserAgent beschrieben:

#!/usr/bin/perl -w
use strict;

my $ua = new My::LWP::UserAgent;
$ua -> agent('Mozilla/4.7 [de]C-CCK-MCD QXW0322c (Win98; I)');

my $url = 'http://www.o3media.de/test';
my $method = 'HEAD';

my $request = new HTTP::Request $method => $url;
print "$method Request to $url...\n\n";

my $result = $ua->request($request);
print $result -> as_string;

package My::LWP::UserAgent;
use base qw(LWP::UserAgent);

sub redirect_ok {return};

end of source

Viele Gruesse,

n.d.p.

[Robert Allerstorfer]

Hi,

etwa so, wie in perldoc LWP::UserAgent beschrieben:

Danke, hab mich natürlich durch die docs gelesen, aber der springende punkt war:

my $result = $ua->request($request);
print $result -> as_string;

Ich hatte

my $response = $ua->request($request);

verwendet und bei print $response folgendes bekommen:

HTTP::Response=HASH(0x1ab6cf8)

Bei erweiterung obiger zeile auf

my $response = $ua->request($request) -> as_string;

kam dann das gewünschte ergebnis!

schönen tag noch!

rob.

[n.d. parker]

Moin,

my $response = $ua->request($request);
verwendet und bei print $response folgendes bekommen:
HTTP::Response=HASH(0x1ab6cf8)

ja, da hast du dir die "blessed reference" ausgeben lassen, also quasi die Objektreferenz (eines Objekts der Klasse 'HTTP::Response').

Viele Gruesse,

n.d.p.