Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^3: Creating Tiff's from perl

by mpeters (Chaplain)
on Jul 11, 2005 at 16:32 UTC ( #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


Comment on Re^3: Creating Tiff's from perl
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://474004]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2014-10-21 04:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (95 votes), past polls