Mercurial > laserkard
annotate laserkard_source_images/convert.pl @ 12:8c0bb42eef89 laserkard
[svn r13]
| author | rlm |
|---|---|
| date | Fri, 01 Jan 2010 23:13:52 -0500 |
| parents | |
| children | b677f4b6185c |
| rev | line source |
|---|---|
| rlm@12 | 1 @rr = glob('*.jpg'); |
| rlm@12 | 2 |
| rlm@12 | 3 $" = "\n"; |
| rlm@12 | 4 |
| rlm@12 | 5 print "@rr\n"; |
| rlm@12 | 6 |
| rlm@12 | 7 #@rr = @rr[0]; |
| rlm@12 | 8 for $t(@rr) |
| rlm@12 | 9 { |
| rlm@12 | 10 |
| rlm@12 | 11 $t =~ m/(.*)\.jpg/; |
| rlm@12 | 12 $name = $1; |
| rlm@12 | 13 |
| rlm@12 | 14 |
| rlm@12 | 15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n"; |
| rlm@12 | 16 `convert $name.jpg -resize 630x360 ../display/$name.jpg`; |
| rlm@12 | 17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n"; |
| rlm@12 | 18 `convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg` |
| rlm@12 | 19 |
| rlm@12 | 20 |
| rlm@12 | 21 |
| rlm@12 | 22 |
| rlm@12 | 23 } |