Mercurial > laserkard

comparison laserkard_source_images/convert.pl @ 12:8c0bb42eef89 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r13]
author rlm
date Fri, 01 Jan 2010 23:13:52 -0500
parents
children b677f4b6185c
comparison
equal deleted inserted replaced
11:31c3bd2ee5cf 12:8c0bb42eef89
1 @rr = glob('*.jpg');
2
3 $" = "\n";
4
5 print "@rr\n";
6
7 #@rr = @rr[0];
8 for $t(@rr)
9 {
10
11 $t =~ m/(.*)\.jpg/;
12 $name = $1;
13
14
15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n";
16 `convert $name.jpg -resize 630x360 ../display/$name.jpg`;
17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n";
18 `convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg`
19
20
21
22
23 }