Mercurial > laserkard

view laserkard_source_images/convert.pl @ 56:2ca94aa58033 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r57] commiting before corrections with Kevin
author rlm
date Sat, 13 Mar 2010 22:30:59 -0500
parents 2f537455ebf7
children
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 $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg";



    17 $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg"; 



    18 



    19 print "$cmd1\n";



    20 `$cmd1`;



    21 print "$cmd2\n";



    22 `$cmd2`;



    23 



    24 



    25 



    26 }