How to easily resige images in Perl
Wednesday 17 March 2010 @ 6:46 am

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;
Comments (0) - Posted in work by  



Short script that may replace wine tasters.
Wednesday 6 January 2010 @ 6:52 am

Those fancy wine opinions were created not by fancy wine tater, but a Perl script!

Greg Sumner created script ( perl source: http://www.gmon.com/tech/sillytng.txt ) that may replace wine tasters and their head-spinning wine notes.

Something more stupid:

See it for yourself and play with it 🙂

http://www.gmon.com/tech/stng.shtml

http://www.gmon.com/tech/output.shtml

Comments (0) - Posted in fun by