Image::Info::XPM - XPM support for Image::Info
use Image::Info qw(image_info dim);
my $info = image_info("image.xpm"); 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:
image_info
is invoked
as image_info({ColorPalette>=1})
.
image_info
is invoked
as image_info($file, L1D_Histogram=>1)
. The range is from 0 to 255,
however auto-vivification is used so a null field is also 0,
and the array may not actually contain 255 fields.
This module requires Image::Xpm
$Image::Info::XPM::RGBLIB is set to /usr/X11R6/lib/X11/rgb.txt by default, this is used to resolve textual color names to their RGB counterparts.
For more information about XPM see:
ftp://ftp.x.org/contrib/libraries/xpm-README.html
While the module attempts to be as robust as possible, it may not recognize older XBMs (Versions 1-3), if this is the case try inserting /* XPM */ as the first line.
Jerrad Pierce <belg4mit@mit.edu>/<webmaster@pthbb.org>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.