http://www.perlmonks.org?node_id=172617

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

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:

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

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

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

    -beernuts