Perl - 바이너리 파일 구문 분석 및 지정된 오프셋에서 값 반환

Question

구문 분석 할 수 있어야하는 바이너리 파일이 있습니다. 내가 뭘 찾고 오프셋을 지정하고 그 프로그램을 그 위치에서 바이트 값을 반환합니다.

내가 어떻게되는지는 잘 모르겠다. 파일을 열어 봤지만 프로그램을 그 위치로 가져 오는 방법을 모르겠습니다.

도움을 주시면 감사하겠습니다.

감사합니다.

Answer 1

use Fcntl qw(:seek); 

my($fh, $filename, $byte_position, $byte_value); 

$filename  = "/some/file/name/goes/here"; 
$byte_position = 42; 

open($fh, "<", $filename) 
    || die "can't open $filename: $!"; 

binmode($fh) 
    || die "can't binmode $filename"; 

sysseek($fh, $byte_position, SEEK_CUR) # NB: 0-based 
    || die "couldn't see to byte $byte_position in $filename: $!"; 

sysread($fh, $byte_value, 1) == 1 
    || die "couldn't read byte from $filename: $!"; 

printf "read byte with ordinal value %#02x at position %d\n", 
    ord($byte_value), $byte_position; 

Answer 2

사용 seek 및

#! /usr/bin/env perl 

use bytes; 
use strict; 
use warnings; 

use Fcntl ':seek'; 

open my $fh, "<", $0 or die "$0: open: $!"; 

seek $fh, 0, SEEK_END or die "$0: seek: $!"; 

my $last = tell $fh; 
die "$0: tell: $!" if $last < 0; 

for (1 .. 20) { 
    my $offset = int rand($last + 1); 
    seek $fh, $offset, SEEK_SET or die "$0: seek: $!"; 
    defined read $fh, my $byte, 1 or die "$0: read: $!"; 
    $byte = "\\$byte" if $byte eq "'" || $byte eq "\\"; 
    printf "offset %*d: \\x%02x%s\n", 
     length $last, $offset, 
     unpack("C", $byte), 
     $byte =~ /[[:print:]]/a ? " '$byte'" : ""; 
} 
__DATA__ 
      
: ℞:  
          
             
¡ƨdləɥ ƨᴉɥʇ ədoɥ puɐ ʻλɐp əɔᴉu ɐ əʌɐɥ ʻʞɔnl poo⅁ 

샘플에서와 Fcntl 모듈에서 편리 상수 출력 :

offset 47: \x65 'e' 
offset 392: \x20 ' ' 
offset 704: \xf0 
offset 427: \x5c '\'' 
offset 524: \x61 'a' 
offset 1088: \x75 'u' 
offset 413: \x20 ' ' 
offset 1093: \xbb 
offset 1112: \xc9 
offset 377: \x24 '$' 
offset 64: \x46 'F' 
offset 361: \x62 'b' 
offset 898: \xf0 
offset 566: \x5d ']' 
offset 843: \xf0 
offset 1075: \xc9 
offset 280: \x20 ' ' 
offset 3: \x2f '/' 
offset 673: \x8a 
offset 153: \x20 ' '

UTF 처리하기위한 Tom’s excellent suggestions에서 차용 된 __DATA__ 섹션의 내용 -8 Perl 프로그램에서.