왜 바이너리 파일 다시 쓰기가 작동하지 않습니까?

Question

거의 tar.gz 파일이 있습니다. 압축을 풀기 전에 바이트를 건너 뛰고 압축을 풀고 다시 바꿔야합니다.

#!perl 

open (my $src, "<", $path) or die $!; 
binmode($src); 
seek($src, $magicNumber,0); 

open(my $tgz, ">", $path . ".tar.gz"); 
binmode($tgz); 

#while(<$src>){ 
# print $tgz $_; 
#} 
my $n; my $data; 
while(($n = read $src, $data, 4) != 0){ 
    print $tgz $data; 
} 

왜 주석 처리되지 않은 버전을 사용하면 인코딩되지 않은 것보다 짧은 파일 (중간에 건너 뛴 바이트)이 생성됩니다. 나는 파일의 끝이 손상되지만 생성 된 파일이 중간에 어딘가에 있는지 이해할 것이다. 이것에 대한 설명?

불행히도 문제를 재현하는 파일을 업로드 할 수 없습니다.

Answer 1

이진 파일의 경우 foreach(<$src>)과 같은 구문을 사용하면 일반적으로 줄 모드로 읽거나 (이진 파일에 줄 개념이 없기 때문에)별로 좋지 않습니다.

파일간에 이진 비교를 수행하면 누락 된 바이트가 CR 또는 LF라고 ​​추측 할 수 있습니다.