Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^3: Creating Tiff's from perl

by mpeters (Chaplain)
on Jul 11, 2005 at 16:32 UTC ( [id://474004] : note . print w/replies, xml ) Need Help??


in reply to Re^2: Creating Tiff's from perl
in thread Creating Tiff's from perl

I'm sorry, I forgot to show how to write out the image, silly me!
$img->write( { file => $tmp->filename, type => 'tiff', class => 'fax', } );
And then in order to get the Group4 compression I did resort to ImageMagick's convert util.
system("convert -page Letter -compress Group4 $filename $filename") +;
The last part I'm still not completely happy with, but since this is a batch process I didn't have to worry so much about having the extra system call.

-- More people are killed every year by pigs than by sharks, which shows you how good we are at evaluating risk. -- Bruce Schneier