Mercurial > laserkard

view laserkard_source_images/convert.pl @ 15:5c7f16af1dd2 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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/perl



     2 @rr = glob('*.png');



     3 



     4 $" = "\n";



     5 



     6 print "@rr\n";



     7 



     8 #@rr = @rr[0];



     9 for $t(@rr)



    10 {



    11 



    12 $t =~ m/(.*)\.png/;



    13 $name = $1;	



    14 



    15 



    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`



    20 



    21 



    22 



    23 



    24 }