Mercurial > laserkard
view laserkard_source_images/all/convert.pl @ 9:8ac163f8d9b6 laserkard
[svn r10] replace jpgs with png for editing checkpoint
author | rlm |
---|---|
date | Fri, 01 Jan 2010 23:07:19 -0500 |
parents | 388bd7feec61 |
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 }