Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2015-11-28 09:19 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (740 votes), past polls