Externe Dateien prüfen

[Gustl]

#!perl -T

use strict;
use diagnostics;

use Image::Size qw(imgsize);
use LWP::Simple qw(get);

my $uri = 'http://www.w3.org/Icons/valid-xhtml10';
my ($x, $y, $type);

{
    my $img = get $uri;

if (defined $img) {
        ($x, $y, $type) = imgsize $img;
    } else {
        die "could not retrieve <$uri>";
    };
};

  
Also das klappt so. Ich prüfe noch den $type auf JPG PNG GIF. Nur noch eine Frage: Wie komme ich an die Speichergrösse in byte ?  
  
Gruss Gustl