|
I've also tried this. (without dereferencing $blob).
my $exifTool = new Image::ExifTool;
$exifTool->Options(PrintConv => 0);
my $info = $exifTool->ImageInfo($src);
my $blob = $exifTool->GetValue('PreviewImage', 'Raw');
open(OUT, ">preview.jpg");
binmode(OUT);
syswrite(OUT, $blob);
close(OUT);
|
