Advanced Search

Tiff2PDF converter for NYBC Files

/ Published in: Perl
Save to your folder(s)
Used for converting, compiling, and reversing tiff files from the Book Center's digital library.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. #!/usr/bin/env perl                                                           
  2.  
  3. use warnings;
  4. use strict;
  5. use Getopt::Std;
  6. use PDF::FromImage;
  7.  
  8. our %opts;
  9.  
  10. getopt('d:f:o:',  \%opts);
  11.  
  12. if (!%opts) {
  13.  
  14. print STDERR << "EOF";
  15.  
  16.  Usage: [-d directory][-f image file] -o output.pdf
  17.  
  18. EOF
  19.    exit;
  20. }
  21.  
  22. elsif ($opts{d}) {
  23.  
  24.   my $pdf = PDF::FromImage->new;
  25.  
  26.   my @files = <$opts{d}/*.tif>;
  27.  
  28.   my @rfiles = reverse(@files);
  29.  
  30.   $pdf->load_images(@rfiles);
  31.  
  32.   $pdf->write_file("$opts{o}");
  33. }
  34.  
  35. if ($opts{f}) {
  36.   my $pdf = PDF::FromImage->new;
  37.  
  38.    $pdf->load_images("$opts{f}");
  39.  
  40.    $pdf->write_file("$opts{o}");
  41. }

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.