2017.08.06 10:24 "[Tiff] Graphics::TIFF v6 released - Perl bindings for libtiff", by Jeff
v6 seems to have got the tests to the stage where they run on most
platforms, including various Linuxes and Windows (Strawberry Perl).
You can find the source on CPAN:
http://search.cpan.org/dist/Graphics-TIFF/lib/Graphics/TIFF.pm
Synopsis:
Perl bindings for the libtiff library. This module allows you to access
TIFF images in a Perlish and object-oriented way, freeing you from the
casting and memory management in C, yet remaining very close in spirit
to the original API.
The following snippet can be used to read the image data from a TIFF:
use Graphics::TIFF ':all';
my $tif = Graphics::TIFF->Open( 'test.tif', 'r' );
my $stripsize = $tif->StripSize;
for my $stripnum ( 0.. $tif->NumberOfStrips - 1 ) {
my $buffer = $tif->ReadEncodedStrip( $stripnum, $stripsize );
# do something with $buffer
}
$tif->Close;