Mercurial > judyates

view perl/convert_images.pl @ 5:788bb81ec9dd judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r6] tested paypal; ready to put up new money-making gallery!
author rlm
date Mon, 22 Feb 2010 08:52:08 -0500
parents 60668cf4f443
children ed6ee381b8fd
line wrap: on
line source
     1 @names = glob("*.tif");



     2 



     3 for (@names){



     4 /(.*)\.tif/;



     5 $name = $1;



     6 `convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`;



     7 }