Generate small .jpeg file thumbnails using Image Magick

This script uses the Thumbnail function provided by Image Magick's PerlMagick API to generate 4K thumbnail files. Thumbnail strips various "extra" information out of the image to reduce the file size from about 10K.

use strict;
use warnings;
use Image::Magick;
use File::Spec::Functions qw(splitpath);

my $thumbX = 100;
my $thumbY = 66;

my $filename = shift;
my $image = Image::Magick->new ();
$image->ReadImage ($filename);

my ($height, $width) = $image->Get ('height', 'width');
my ($x, $y) = $height < $width ? ($thumbX, $thumbY) : ($thumbY, $thumb
+X);
my ($drive, $dir, $file) = splitpath ($filename);
$file =~ s/(\..*?)$/_s$1/;

$image->Thumbnail (width=>$x, height=>$y);
$image->Write ("$drive${dir}$file");
[download]

Comment on Generate small .jpeg file thumbnails using Image Magick Download Code

Replies are listed 'Best First'.
Re: Generate small .jpeg file thumbnails using Image Magick by b10m (Vicar) on Sep 28, 2005 at 11:04 UTC
... or just use any of the many, many Thumbnail modules on CPAN ... -- b10m All code is usually tested, but rarely trusted.	[reply]
Re^2: Generate small .jpeg file thumbnails using Image Magick by GrandFather (Saint) on Sep 28, 2005 at 11:11 UTC
In true snippet fashion this trivial chunk of code represents something that took about three days to resolve with a lot of discussion in the CB. The bottom line is that by changing a ->Resize to a ->Thumbnail in this code I get much smaller files. The Image Magick docs do not lead you by the hand to discover this sort of thing! Perl is Huffman encoded by design.	[reply]