Hallo,
danke für den Tipp - aber ich glaube dass das nicht wesentlich anders ist...Die head() Funktion von LWP::Simple macht ja auch nichts anderes als nen HTTP::Request abzusenden. :-(
sub head ($)
{
my($url) = @_;
_init_ua() unless $ua; my $request = HTTP::Request->new(HEAD => $url);
my $response = $ua->request($request);
if ($response->is_success) {
return $response unless wantarray;
return (scalar $response->header('Content-Type'),
scalar $response->header('Content-Length'),
HTTP::Date::str2time($response->header('Last-Modified')),
HTTP::Date::str2time($response->header('Expires')),
scalar $response->header('Server'),
);
}
return;
}
Datum: 11.05.2005-09:48
