On Tue, 6 Sep 2005, Daniel Smith wrote:

> My question is, how do I get the information out of these file fields 
> into some sort of delimited file?  Any suggestions?

Your question is "how do I poke at the EXIF data in a JPEG image"?

JPEGs store metadata -- file size, file date, camera make, camera model, 
date & time, resolution (width x height), whether a flash was used, 
focal length (mm), exposure time, aperture (f/stop), ISO speed, etc -- 
in a section called the EXIF header. 

You're looking for a way to access this data. Try a CPAN search:

http://search.cpan.org/search?query=EXIF&mode=all

This is the first hit:

http://search.cpan.org/~ccpro/Image-EXIF-1.00.3/EXIF.pm

As noted in another reply, you can also use Image::Info for a more 
generic version of the same information:

http://search.cpan.org/~gaas/Image-Info-1.16/lib/Image/Info.pm

And as another person noted, it helps to know what platform you're 
talking about. On POSIXy systems (Linux, OSX, Solaris, BSD, etc), the 
`jhead` command line tool provides quick access to EXIF data:

    $ jhead ~/south_tower_invisible_beyond_fog.jpg 
    File name    : /Users/cdevers/south_tower_invisible_beyond_fog.jpg
    File size    : 859667 bytes
    File date    : 2005:07:17 13:40:20
    Camera make  : OLYMPUS OPTICAL CO.,LTD
    Camera model : X-2,C-50Z       
    Date/Time    : 2005:07:17 02:49:30
    Resolution   : 1920 x 2560
    Flash used   : No
    Focal length :  7.8mm
    Exposure time: 0.0031 s  (1/320)
    Aperture     : f/5.6
    ISO equiv.   : 80
    Whitebalance : Auto
    Metering Mode: matrix
    Exposure     : Creative Program (based towards depth of field
    $

Etc. Image::Exif will let you examine the same data in a Perl script.



-- 
Chris Devers

xIÕ¼¡.‡þC
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Reply via email to