Perlでバイナリファイルから最後の16バイトを取得するには？

Question

私はPerlで画像を読み込むには、読み：

open (FILE,"<$filename") or die $!; 
      binmode FILE; 
      while (($n = read FILE, $data, 4) != 0) { 
       $buf .= $data; 
      } 
close (FILE); 

を私はこのファイルからのみ、最後の16のバイトを取得できますか？ Backgoundは、画像の最後の16バイトを別の画像の最後の16バイトと比較したいのです。

Answer 1

使用seekは16バイトのファイル終了前の位置に移動し、16のバイトを読むために：

open (FILE, "<$filename") or die $!; 
binmode FILE; 
seek FILE, -16, 2; 
read FILE, $data, 16; 
close (FILE); 

あなたはまた、代わりに2の定数を使用することができます

use Fcntl qw(SEEK_END); 

open (FILE, "<$filename") or die $!; 
binmode FILE; 
seek FILE, -16, SEEK_END; 
read FILE, $data, 16; 
close (FILE);