なぜバイナリファイルを書き直すことができないのですか？

Question

私はほとんどtar.gzファイルを持っています。私はアンパックする前にいくつかのバイトをスキップする必要がありますし、それをuntarし、何かを変更し、再度パックします。

#!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; 
} 

コメントを外しバージョンgeneretesにuncomentedより短いファイルを使用している場合（バイトが途中でスキップ）なぜ。私はファイルの終わりが壊れているが、生成されたファイルが途中でどこか違うかどうかを理解するだろう。これについての説明は？

残念ながら、問題を再現するファイルをアップロードすることはできません。

Answer 1

バイナリファイルの場合、foreach(<$src>)のような構文を使用すると、行モードで読み込み（バイナリファイルに行の概念がないため）、一般的にあまり良くありません。

ファイル間のバイナリ比較を行う場合は、欠落しているバイトがCRまたはLFのいずれかであると推測します。