- ERROR HANDLING
Image::JPEG::Size - find the size of JPEG images
use Image::JPEG::Size; my $jpeg_sizer = Image::JPEG::Size->new; my ($width, $height) = $jpeg_sizer->file_dimensions($filename);
This module uses libjpeg to rapidly determine the size of one or more JPEG images.
First create an instance of the class:
my $jpeg_sizer = Image::JPEG::Size->new;
The constructor initialises internal libjpeg structures; if that fails, an exception is thrown.
The constructor takes attributes as either a hash reference or a listified hash. Unknown attributes are ignored. The following attributes are understood:
Specifies the action to take on encountering a non-recoverable error in an image; see "ERROR HANDLING". Defaults to
Specifies the action to take on encountering a recoverable error in an image; see "ERROR HANDLING". Defaults to
You can repeatedly call
file_dimensions in list context to find the width and height of your JPEG images:
my ($width, $height) = $jpeg_sizer->file_dimensions($filename);
For now, the JPEG images must be supplied as a filename.
In some cases, you may prefer to get the image dimensions as a hash. The
file_dimensions_hash takes a single filename argument, and returns a listified hash with keys
By default, recoverable errors in the image are reported using Perl's warning mechanism, and non-recoverable errors cause an exception to be thrown. However, this behaviour can be changed when creating an Image::JPEG::Size instance. The options are:
Throw an exception with information about the error, and stop processing this image immediately.
Emit a Perl warning with information about the error. If the error is non-recoverable, image processing stops immediately, and its dimensions are reported as 0×0 pixels.
Suppress the error entirely. If the error is non-recoverable, image processing stops immediately, and its dimensions are reported as 0×0 pixels.
Aaron Crane, <email@example.com>
The initial development of this module was sponsored by Science Photo Library https://www.sciencephoto.com/.
Copyright 2017 Aaron Crane.
This library is free software and may be distributed under the same terms as perl itself. See http://dev.perl.org/licenses/.