Epeg - Thumbnail jpegs at lightning speed
use Image::Epeg qw(:constants); my $epg = new Image::Epeg( "test.jpg" ); $epg->resize( 150, 150, MAINTAIN_ASPECT_RATIO ); $epg->write_file( "test_resized.jpg" );
Perl wrapper to the ultra-fast jpeg manipulation library "Epeg". This library can be used to thumbnail (resize down) jpegs, set comments and quality. NOTE: The resize() method *must* be called with valid arguments or get_data() and write_file() will fail.
The resize() method can only be used to downsize images. If neither the width or height specified is less than the source image it will return undef.
Michael Curtis <email@example.com>