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;
Those fancy wine opinions were created not by fancy wine tater, but a Perl script!
- Premature and overcooked red. Resembles licorace, american-oaked toast and lingering prune juice. Drink now through never.
- Fun and focused Rhone. Forcefully bites you with mint julip, putrid fruit punch and lingering spice. Drink now through 2009.
- Premature but morally superior Syrah. Hints of salt, over-oaked juniper and atomic traces of melon. Drink now through graduation.
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:
- Lean but french-oaked Cabernet Franc. Kicks you with super-glue, understated melted chocolate and bashful whole-wheat bread. Drink now through eternity.
- Markedly improved and whimsical Voignier. Throws out french onion soup, soggy smoked oyster and forward melted chocolate. Drink now through 2005.
- Grossly overweight but equally musty white. Attacks with nectarine, big and plump vanilla and total absence of currant. Drink now through whenever the cows come home.
See it for yourself and play with it 🙂