Perl: größe einer Datei lesen

[manny]

servus,

auch auf die gefahr hin, dass die frage schon sehr oft gestellt wurde (hab mit der suchfunktion nix gefunden):
wie kann ich die größe einer datei in Byte herausbekommen. die datei befindet sich irgendwo im netz.

d.h. ich will z.b. wissen, wie groß http://www.xyz.de/seiteabc.html ist.

wie ist das mit perl zu realisieren ?

[tomes]

#!/usr/bin/perl -w
#
use strict;
use LWP::UserAgent;
$url = "http://192.168.1.2/index.html";
my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new('HEAD', $url);
my $response = $ua->request($request);
my $size = $response->header('Content-Length');
print $size."\n";

oder so


#!/usr/bin/perl -w
#
use strict;
use LWP::Simple;
$url = "http://192.168.1.2/index.html";
my ($type, $length, $modified, $expires, $server) = head($url);
print $length."\n";


T;o)Mes

P.S. Laenge ist in Bytes

[manny]

merci :D