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

[Jesper Wisborg Krogh <sslug@sslug>]

Hejsa,

Kim Schulz wrote:

> hejsa
> jeg skal i et script have fat i info om geometrien af de billeder jeg
> behandler i det. Er der nogen som har en ide til hvordan jeg gør dette?
>
> MVH
> Kim 
>  
Selv bruger jeg en CPAN pakke, der hedder Image-Info. Jeg har vedlagt et 
udpluk at et script, der bruger denne pakke. Bemærk, jeg har bragt to 
forskellige måder at finde dimensionen af billedet.

Med venlig hilsen

/ Jesper

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);