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.