Externe Dateien prüfen

[迪拉斯]

Hey,

Wenn ich die Kantenlänge eines Bildes lesen will muss ich die Datei zwischenspeichern, dann lesen, dann wieder löschen

Dateien sind nicht nötig.

#!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>";  
    };  
};