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@12: $t =~ m/(.*)\.jpg/;
rlm@12: $name = $1;	
rlm@12: 
rlm@12: 
rlm@12: print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n";
rlm@12: `convert $name.jpg -resize 630x360 ../display/$name.jpg`;
rlm@12: print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n";
rlm@12: `convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg`
rlm@12: 
rlm@12: 
rlm@12: 
rlm@12: 
rlm@12: }