Mercurial > laserkard
comparison laserkard_source_images/convert.pl @ 12:8c0bb42eef89 laserkard
[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 } |