perl - 如何使用 Perl 以字节数组形式读取图像？

Question

我的 Perl 经验很少。

我需要读取二进制图像并将其传递给 Image::ExifTool 模块。

这是我的代码:

use Image::ExifTool;

my $exifTool = new Image::ExifTool; 

open(IMAGE, $file) || die "Can't Open $file\n";
binmode(IMAGE);

my ($buf, $data, $n);
while (($n = read FILE, $data, 4) != 0) {
  $buf .= $data;
}

#'.=' is concat
print $file .= " test";

$infob = $exifTool->ImageInfo(\$buf);

foreach ( keys %$infob ) {
    print "$_ => $$infob{$_}\n";
}

close(IMAGE);

据我所知，我的上述代码读取引用文件并在字节级别将二进制数据附加到 $buf。

根据 ExifTool 文档，您可以将对文件的内存引用作为标量 var 传递给 ImageInfo 方法——这是在上面完成的。

执行时，Image::ExifTool 模块输出以下内容:

Error => Unknown file type

Answer 1

use Image::ExifTool;

my $exifTool = new Image::ExifTool; 

open( my $IMAGE, $filename ) || die "Can't Open $filename\n";
binmode($IMAGE);

$infob = $exifTool->ImageInfo($IMAGE);

foreach ( keys %$infob ) {
    print "$_ => $$infob{$_}\n";
}

close($IMAGE);