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のドキュメントでは、ImageInfoメソッドのスカラー変数としてメモリ内の参照をファイルに渡すことができます。これは上記のとおりです。実行すると

、イメージ:: 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);