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

[Jesper Wisborg Krogh <sslug@sslug>]

Kim Schulz wrote:

> 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) 
>  
Image::Size eksemplet og det første eksempel med Image::Info er jo stort 
set identiske. Jeg har valgt Image::Info, da jeg også har brug for en 
række andre informationer, som jeg ikke har været i stand til at finde 
på andre måder.

/ Jesper