Siechfred: Größe einer Datei auf einem anderen Server

Beitrag lesen

Hallo Thomas.

Du könntest mit Hilfe des HTTP-Headers an die gewünschten Infos kommen, denn die Größe der angeforderten Ressource in Byte steht im Feld Content-length. Das könnte man z.B. mit  LWP::UserAgent machen, indem du einen Request zum anderen Server schickst, im Erfolgsfall erhältst du einen Responseheader, den du dann auswerten könntest:

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $request = HTTP::Request->new('GET', 'http://www.domain.tld/datei.name');
my $response = $ua->request($request);
print "Content-type: Text/html\n\n";
if( $response->is_success() ) {
  my $groesse = length($response->content());
  print "Groesse: $groesse Byte";
}
else {
  print "Nicht erreichbar.";
}

Freundschaft!
Siechfred