Unfortunately, Image::Magick doen't support gif compression.
Here is my script
use Image::Magick;
my $image;
$image = Image::Magick->new;
$image->Read('test.bmp');
$image->Resize(geometry=>'800x800');
$image->Write(filename=>'test.gif', compression => 'JPEG', quality=>1,
monochrome =>True);
the 10MB bmp can be compressed to 100KB jpg (with 800x800 geometry)
Any more effective compression?
----- Original Message -----
From: "Wiggins d Anconia" <[EMAIL PROTECTED]>
To: "John" <[EMAIL PROTECTED]>; "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Tuesday, February 24, 2004 10:21 PM
Subject: Re: cool project ideas
> > a image convertor.
> >
> > I cannot find anything.
> >
>
> Checked CPAN?
>
> > BMP<=>JPEG
> > JPEG<=>GIF
> > BMP<=>GIF
> >
>
> http://www.imagemagick.org/www/perl.html
> ALternatively, GD.
>
> http://danconia.org
>
> >
> > ----- Original Message -----
> > From: "Joel" <[EMAIL PROTECTED]>
> > To: "perl" <[EMAIL PROTECTED]>
> > Sent: Tuesday, February 24, 2004 10:05 PM
> > Subject: cool project ideas
> >
> >
> > > I'm getting tired of working on a text adventure in perl, and I was
> > > wondering if anyone had some interesting projects they could suggest I
> > > attempt.
> > >
> > > Thanks,
> > >
> > > Joel
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
