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;
Often, when I googled for information about Perl, that website came up in search results: http://www.rocketaware.com/perl/ .
It looks quite ugly, like but is great source of information about perl, especially for beginners. Take for example this page: http://www.rocketaware.com/perl/onepage.htm – it list all that cryptic “Short-hand variables.”, and also functions and operators.
This page does not only seem to be old, it is old. For example this page: http://www.rocketaware.com/perl/perlfaq4/Why_aren_t_my_random_numbers_ran.htm points to http://www.perl.com/CPAN/doc/FMTEYEWTK/random , where you can read (at least now) that:
Note that the old documentation, often advertised as www.perl.com/doc or www.perl.com/CPAN/doc, has been removed from CPAN as of November 2001 because it had not been updated for several years”.
The documentation in not-so-archaic distributions of perl points to this place instead: http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz where the old docs are stored. The rocketaware site seem to not be aware of those year 2001 changes, and in footer one can read: “Copyright 2000, Forrest J. Cavalier III.”
So to sum op, this site is:
– useful (at least if you don’t mind using perl as it was year 2000)
The page http://www.rocketaware.com/perl/onepage.htm alone makes this website worth recommendation.