Mercurial > judyates

comparison perl/convert_images.pl @ 11:ed6ee381b8fd judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r12] compressed photos and assembled them into a working web gallery
author rlm
date Mon, 12 Apr 2010 02:31:43 -0400
parents 60668cf4f443
children 34fdec47b0a0
comparison
equal deleted inserted replaced
10:ed52b2b7cbc1 11:ed6ee381b8fd
1 @names = glob("*.tif"); 1 #!/usr/bin/perl
2
3
4 chdir "/home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos-source/photos-normal";
5
6 @names = glob("*.JPG");
7
8 $" = "\n";
9
10 #print "@names";
11
2 12
3 for (@names){ 13 for (@names){
4 /(.*)\.tif/; 14 /(.*)\.JPG/i;
5 $name = $1; 15 $name = $1;
6 `convert $_ -resize 200X1000 -quality 85\% $name(small).jpg`; 16
17 $command = "convert $_ -resize X584 -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/$name.jpg\n";
18 print $command;
19 `$command`;
20
21 $command = "convert $_ -resize 1300X -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/large/$name.jpg\n";
22 print $command;
23 `$command`;
24
25 $command = "convert ../photos-thumb/$_ -resize 120X120 -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/thumbs/$name.jpg\n";
26 print $command;
27 `$command`;
28
29
30
7 } 31 }