NAME

Epeg - Resize jpegs at lightning speed

SYNOPSIS

use Image::Epeg qw(:constants);
my $epg = new Image::Epeg( "test.jpg" );
$epg->resize( 150, 150, MAINTAIN_ASPECT_RATIO );
$epg->write_file( "test_resized.jpg" );

DESCRIPTION

Perl wrapper to the ultra-fast jpeg manipulation library "Epeg".

Methods

  • new( [filname|data ref] )

  • get_height()

  • get_width()

  • set_quality( [0-100] )

  • set_comment( [comment] )

  • get_comment()

  • resize( [width], [height], [Aspect Ratio Mode] )

  • write_file( [filename] )

  • get_data()

AUTHOR

Michael Curtis <mike@beatbot.com>

SEE ALSO

http://gatekeeper.dec.com/pub/BSD/NetBSD/NetBSD-current/pkgsrc/graphics/epeg/README.html