The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Image::libsiftfast - perl wrapper of siftfast (libsiftfast) command.

SYNOPSIS

  use Image::libsiftfast;

  my $sift = Image::libsiftfast->new(siftfast_path => "/usr/local/bin/siftfast");

  # $sift recieves only grayscale file.
  # If you don't have any grayscale file, convert it to pnmfile.

  my $pnm_file = $sift->convert_to_pnm($jpeg_file);

  # It returns a perl data structure. 
  my $data = $sift->extract_keypoints($pnm_file);

DESCRIPTION

Image::libsiftfast is a siftfast (libsiftfast) command wrapper.

The object returns a perl data structure that have 'keypoints_num', 'elapsed', 'image_size' and keypoints. All of the keypoint data contains 'frames' and 'vector' block. The frames have 'X', 'Y' coordinate and 'scale' and 'orientaiton' information. The vectors is constructed in 128 dimensions. That is array reference.

WARNING: This module relies on siftfast command ( libsiftfast c++ library ). If you want to know and install libsiftfast, see the maual site. ( http://sourceforge.net/projects/libsift/ )

METHODS

new( [SIFTFAST_PATH] )

convert_to_pnm(IMAGE FILE)

extract_keypoints(GRAYSCALE IMAGE FILE)

AUTHOR

Takeshi Miki <miki@cpan.org>

SEE ALSO

http://sourceforge.net/projects/libsift/

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.