如何使用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方法 - 這是上面完成的。

執行時，圖像:: 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);