Home Perl Books

Sun, 05 Feb 2012 10:16

Login Register

Go

How to easily resize images (jpg) in perl? Use Image::resize

use Image::Resize;
use autodie;

$src = "bigimage.jpg";
my $old = Image::Resize->new($src);
my $new = $old->resize(200, 300); # max dimensions

$jpegdata = $new->jpeg(95); # jpeg quality

open OUT, ">./smaller/$src";
print OUT $jpegdata;
close OUT;

See also:

1. installing from CPAN without root
2. Utf8 in web perl application (LAMP) – binmode, charset
3. Utf8 in web perl application (LAMP) – dbi, mysql
4. Working as perl developer – telecommuting
5. Perl as good as java, python and PHP way above

---

  

2009-... Perl. | Powered by WordPress | Theme Oxydo