Next Trivial Utilities 136

imgdiff

        for (0..1) {
          run("djpeg $ARGV[$_] > $pnm[$_]");
          my $info = run("pnmfile $pnm[$_]");
          $size[$_] = [$info =~ /(\d+) by (\d+)/];
        #  print "Size of $pnm[$_]: @{$size[$_]}\n";
        }


Next Menu Copyright © 2012 M. J. Dominus