Image::Info:BMP - Windows Device Indepdent Bitmap support for Image::Info
use Image::Info qw(image_info dim);
my $info = image_info("image.bmp"); 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 Gamma, Interlace, LastModificationTime, as well as:
image_info
is invoked
as image_info($file, ColorPalette=>1)
.
For more information about BMP see:
http://msdn.microsoft.com
The current implementation only function on little-endian architectures. Consequently erroneous data concerning compression (including file_ext and file_mime_type) may be reported.
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.