Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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.


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.


Replies are listed 'Best First'.
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:

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


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://172617]
Approved by OzzyOsbourne
[Lady_Aleena]: Maybe...
[talexb]: Sounds like a Try It And See question to me ..
[1nickt]: heh, I hab\ve been. Trying to understand it.
[1nickt]: perl -e 'print 1.0' ... output '1'.
[Lady_Aleena]: You could quote it. <c>perl -e 'print "1.0"'>/c> returns 1.0

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (13)
As of 2017-05-24 18:41 GMT
Find Nodes?
    Voting Booth?