Mercurial > laserkard
view laserkard_source_images/all/convert.pl @ 1:388bd7feec61 laserkard
[svn r2] added source images
author | rlm |
---|---|
date | Wed, 30 Dec 2009 02:10:57 -0500 |
parents | |
children |
line wrap: on
line source
1 @rr = glob('*.jpg');3 $" = "\n";5 print "@rr\n";7 #@rr = @rr[0];8 for $t(@rr)9 {11 $t =~ m/(.*)\.jpg/;12 $name = $1;15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n";16 `convert $name.jpg -resize 630x360 ../display/$name.jpg`;17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n";18 `convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg`23 }