comparison perl/convert_images.pl @ 0:60668cf4f443 judyates

[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
children ed6ee381b8fd
comparison
equal deleted inserted replaced
-1:000000000000 0:60668cf4f443
1 @names = glob("*.tif");
2
3 for (@names){
4 /(.*)\.tif/;
5 $name = $1;
6 `convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`;
7 }