Next Trivial Utilities 135

imgdiff

        my @pnm = map to_pnm($_), @ARGV;
        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