Converting 19,865 TIFFs to GIFs

• Perl script tiff2gif

  • #!/usr/bin/perl -w
  • foreach $tif (@ARGV)
  • {
  • ($gif = $tif) =~ s/\.tif$/.gif/;
  • if ($gif ne $tif)
  • {
  • print "$tif -> $gif\n";
  • print `tifftopnm $tif | ppmtogif > $gif;rm -f $tif`;
  • }
  • else
  • {
  • print "Invalid file name $tif\n";
  • }
  • }

• bprun -NY tiff2gif *.tif

  • bash:/usr/bin/bprun: Argument list too long

• Using find and bprun -f-

  • find.-name \*.tif | bprun -f- -Ny tiff2gif

Notes: