NAME

Epeg - Thumbnail 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". This library can be used to thumbnail (resize down) jpegs, set comments and quality. NOTE: The resize() method *must* be called with valid arguments or get_data() and write_file() will fail.

Methods

  • new( [filname|data ref] )

  • get_height()

  • get_width()

  • set_quality( [0-100] )

  • set_comment( [comment] )

  • get_comment()

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

    The resize() method can only be used to downsize images. If neither the width or height specified is less than the source image it will return undef.

  • 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