Mercurial > laserkard
view laserkard_source_images/convert.pl @ 15:5c7f16af1dd2 laserkard
[svn r16] resize!
author | rlm |
---|---|
date | Fri, 01 Jan 2010 23:31:58 -0500 |
parents | b677f4b6185c |
children | 2f537455ebf7 |
line wrap: on
line source
1 #!/usr/bin/perl2 @rr = glob('*.png');4 $" = "\n";6 print "@rr\n";8 #@rr = @rr[0];9 for $t(@rr)10 {12 $t =~ m/(.*)\.png/;13 $name = $1;16 print "convert", " $name.png -resize 582x360\! ../images/display/$name.jpg\n";17 `convert $name.png -resize 582x360\! ../images/display/$name.jpg`;18 print "convert", " $name.png -resize 210x130\! ../images/templates/$name.jpg\n";19 `convert $name.png -resize 210x130\! ../images/templates/$name.jpg`24 }