Mercurial > laserkard

view laserkard_source_images/convert.pl @ 14:c618130ca023 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r15]
author rlm
date Fri, 01 Jan 2010 23:21:43 -0500
parents b677f4b6185c
children 5c7f16af1dd2
line wrap: on
line source
     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/(.*)\.png/;



    12 $name = $1;	



    13 



    14 



    15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n";



    16 `convert $name.png -resize 630x360 ../images/display/$name.jpg`;



    17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n";



    18 `convert $name.png -resize 280x160 ../images/thumbnails/$name.jpg`



    19 



    20 



    21 



    22 



    23 }