bench/scale.sh.perl

   1 #!perl -w
   2 use strict;
   3
   4 print "$0\n";
   5 my @allfiles = (@ARGV) x 120;
   6 my $srcdir = '.';
   7
   8 for my $file (@allfiles) {
   9   # print STDERR "djpeg $srcdir/$file | pnmscale 0.33334 | cjpeg >med_res_pnm/$file\n";
  10   system("djpeg $srcdir/$file | pnmscale 0.33334 | cjpeg > med_res_pnm/$file");
  11   # print STDERR "djpeg med_res_pnm/$file | pnmscale 0.25 | cjpeg -quality 60 >icon_pnm/$file\n";
  12   system("djpeg med_res_pnm/$file | pnmscale 0.25 | cjpeg -quality 60 >icon_pnm/$file");
  13 }