Wie bekomme ich die letzten 16 Bytes aus der Binärdatei mit Perl?

Question

las ich ein Bild mit Perl lesen:

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

Wie kann ich aus dieser Datei nur die letzten 16 Bytes bekommen? Backgound ist, dass ich die letzten 16 Bytes von einem Bild mit den letzten 16 Bytes von einem anderen Bild vergleichen möchte.

Answer 1

Verwenden seek bewegen 16 Byte vor Dateiende zu positionieren, und dann die 16 Byte lesen:

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

Sie auch Konstante verwenden können statt 2:

use Fcntl qw(SEEK_END); 

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