#!/usr/bin/env perl                                                           

use warnings;
use strict;
use Getopt::Std;
use PDF::FromImage;

our %opts;

getopt('d:f:o:',  \%opts);

if (!%opts) {

print STDERR << "EOF";

 Usage: [-d directory][-f image file] -o output.pdf

EOF
   exit;
}

elsif ($opts{d}) {

  my $pdf = PDF::FromImage->new;

  my @files = <$opts{d}/*.tif>;

  my @rfiles = reverse(@files);

  $pdf->load_images(@rfiles);

  $pdf->write_file("$opts{o}");
}

if ($opts{f}) {
  my $pdf = PDF::FromImage->new;

   $pdf->load_images("$opts{f}");

   $pdf->write_file("$opts{o}");
}

Used for converting, compiling, and reversing tiff files from the Book Center's digital library.

Tiff2PDF converter for NYBC Files

perl

Perl