Re: [PERL] billede informationer (width/height) i perl! hvordan?

[Kim Schulz <sslug@sslug>]

On Thu, 09 Jan 2003 21:48:50 +0100
[snip]
> use Image::Info qw(image_info dim);
> ...
> my ($widthOfPic, $heightOfPic) = dim($info);              # Virker
> altid printf "%-35s : $widthOfPic%1s$heightOfPic\n",'Dimension of
> picture','x';
> 
> $temp = $info->{'ExifImageWidth'};          # Virker ikke altid
> printf "%-35s : $temp\n",'Image Width' if ($temp);
> 
> $temp = $info->{'ExifImageLength'};          # Virker ikke altid
> printf "%-35s : $temp\n",'Image Length' if ($temp);


jeg endte med at bruge Image::Size pakken (dooh :o) og den er drøn-nem.

use Image::Size;

($width, $height) = ImageSize("billede.jpg");

virker kanon :o)