Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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 wandering the Monastery: (10)
As of 2014-08-21 17:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (138 votes), past polls