Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Image::Magick and JPEG Compression

by OzzyOsbourne (Chaplain)
on Jun 07, 2002 at 19:07 UTC ( #172617=perlquestion: print w/ replies, xml ) Need Help??
OzzyOsbourne has asked for the wisdom of the Perl Monks concerning the following question:

I loaded the Image::Magick module, and wanted to create a compressed JPEG. I thought this would be easy, but I'm missing something. I can write JPEGs, just not compressed ones.

$image->Write(filename=>$file,compression=>'JPEG',quality=>'10')

I checked the docs, and I checked google, but I can't seem to find a straight answer on what may be going wrong. Is there a module that I'm missing to get this to work on a win2k box?

Thanks in advance.

-OzzyOsbourne

Comment on Image::Magick and JPEG Compression
Download Code
Re: Image::Magick and JPEG Compression
by webfiend (Vicar) on Jun 07, 2002 at 19:20 UTC

    I might be missing something myself, but isn't JPEG a compressed format itself? If that were the case, wouldn't fiddling with the quality parameter result in different levels of compression?

    A quick scan of google didn't show me anything to set "jpeg" apart from "compressed jpeg" - most links were describing jpegs as compressed when compared to formats such as bitmap.


    "All you need is ignorance and confidence; then success is sure."-- Mark Twain
Re: Image::Magick and JPEG Compression
by beernuts (Pilgrim) on Jun 07, 2002 at 21:38 UTC
    What do you get for an error? Try:
    my $x = $image->Write(filename=>$file,compression=>'JPEG',quality=>'10 +'); warn "$x" if "$x"; $x =~ /(\d+)/; print "ERROR: [$1]\n";

    You can get the error codes (as well as the above error example) here:

    http://www.imagemagick.org/www/perl.html

    This might be useful too, as you're using Win2K:

    http://www.dylanbeattie.net/magick/

    -beernuts

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2014-12-20 01:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (95 votes), past polls