rlm@12: @rr = glob('*.jpg'); rlm@12: rlm@12: $" = "\n"; rlm@12: rlm@12: print "@rr\n"; rlm@12: rlm@12: #@rr = @rr[0]; rlm@12: for $t(@rr) rlm@12: { rlm@12: rlm@13: $t =~ m/(.*)\.png/; rlm@12: $name = $1; rlm@12: rlm@12: rlm@12: print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n"; rlm@13: `convert $name.png -resize 630x360 ../images/display/$name.jpg`; rlm@12: print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n"; rlm@13: `convert $name.png -resize 280x160 ../images/thumbnails/$name.jpg` rlm@12: rlm@12: rlm@12: rlm@12: rlm@13: }