view perl/convert_images.pl @ 7:3f89d9a017e2 judyates

[svn r8] try this shit
author rlm
date Mon, 22 Feb 2010 11:34:16 -0500
parents 60668cf4f443
children ed6ee381b8fd
line wrap: on
line source
1 @names = glob("*.tif");
3 for (@names){
4 /(.*)\.tif/;
5 $name = $1;
6 `convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`;
7 }