Mercurial > judyates

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r1] initial import
author rlm
date Sun, 03 Jan 2010 04:38:50 -0500
parents
children ed6ee381b8fd
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/perl/convert_images.pl	Sun Jan 03 04:38:50 2010 -0500
     1.3 @@ -0,0 +1,7 @@
     1.4 +@names = glob("*.tif");
     1.5 +
     1.6 +for (@names){
     1.7 +/(.*)\.tif/;
     1.8 +$name = $1;
     1.9 +`convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`;
    1.10 +}
    1.11 \ No newline at end of file