Xbm support for image::info
use Image::Info qw(image_info dim); my $info = image_info("image.xbm"); if (my $error = $info->{error}) { die "Can't parse image info: $error\n"; } my $color = $info->{color_type}; my($w, $h) = dim($info);
This modules supplies the standard key names except for Compression, Gamma, Interlace, LastModificationTime, as well as:
The x-coord of the image's hotspot. Set to -1 if there is no hotspot.
The y-coord of the image's hotspot. Set to -1 if there is no hotspot.
Reference to an array representing a one dimensioanl luminance histogram. This key is only present if \*(C`image_info\*(C' is invoked as \*(C`image_info($file, L1D_Histogram=>1)\*(C'. The range is from 0 to 1.
\$1
$info->process_file($source, $options);
Processes one file and sets the found info fields in the $info object.
This module requires Image::Xbm
Image::Info, Image::Xbm
For more information about \s-1XBM\s0 see:
http://www.dcs.ed.ac.uk/home/mxr/gfx/2d/XBM.txt
Jerrad Pierce <[email protected]>/<[email protected]>
Now maintained by Tels - (c) 2006.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.