Next Welcome to my ~/bin 119

imgdiff

        run("pnmarith $diff @pnm > $tmp");
        run("xv $tmp");
        run("rm -f $tmp @pnm") unless $LEAVE_TMP_FILES;
        sub to_pnm {
          my $fn = shift;
          $fn =~ s/\.jpe?g$//i;
          $fn .= ".ppm";
          $fn;
        }


Next Menu Copyright © 2005 M. J. Dominus