Mercurial > judyates

annotate perl/convert_images.pl @ 6:300619cf1669 judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r7] addws left and right arrows; struggling with inmotion to get the fucker to work on their site
author rlm
date Mon, 22 Feb 2010 10:25:51 -0500
parents 60668cf4f443
children ed6ee381b8fd
rev   line source
rlm@0 1 @names = glob("*.tif");
rlm@0 2
rlm@0 3 for (@names){
rlm@0 4 /(.*)\.tif/;
rlm@0 5 $name = $1;
rlm@0 6 `convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`;
rlm@0 7 }