jpeg info - perl access til binær fil

[Hans Schou <sslug@sslug>]

Hvordan finder jeg nemt højde og bredde af et jpeg billed
fra et perl program?

Jeg har prøvet med 'convert -verbose' (ImageMagick) og
det tager meget lang tid. Så prøvede jeg med djpeg som
gik hurtigere, men stadig ca et minuts 'kørsel'.

Det skal lige nævnes at jeg har 950 billeder og jobbet
helst bare skulle køre en gang i døgnet, så jeg ikke
glemmer at køre det.

Kan man nemt læse en jpeg fil ind i perl binært, og få
hevet højde og bredde ud? Jeg har kikket efter om der
skulle være installeret jpeg-libs, det er der, men
kun til C. PerlMagick er der ikke.

Har du et forslag?

Her er demoen (et billedarkiv)
http://www.sslug.dk/~chlor/ialbum/
Her er min perl-kode:
http://www.sslug.dk/~chlor/ialbum/cron.collect.pl

-- 
best regards
+---------------------------------------------------+
! Hans Schou,    Hamletsgade 4-201,   DK-2200 Kbh N !
! Telex: SCHOU.DK            Phone: +45 35 86 12 66 !
! mailto:sslug@sslug         http://www.schou.dk !
+---------------------------------------------------+
Gnu is not UNIX - Linux is not Gnu - linuxrouter.org