Comment copier les fichiers binaires dans le programme Perl

Question

J'ai le code Perl ci-dessous pour faire une copie d'un fichier binaire que j'ai.

$in = "test_file_binary.exe"; 
$out = "test_out_binary.exe"; 
open(IN,$in) || die "error opening ip file: $!" ; 
open(OUT,">$out") || die "error opening op file: $!" ; 
while(<IN>) 
{ 
#chomp; 
print OUT $_; 
} 
close(IN); 
close(OUT); 

Mais cette version de code sortie fichier binaire est de taille plus que la taille du fichier binaire d'entrée, car ce code perl semble ajouter un caractère 0x0D caractère (retour chariot) avant 0x0A (nouvelle ligne) dans le fichier d'entrée, ce n'est pas déjà là.

Si j'utilise chomp, alors les caractères 0x0A valides sont supprimés, et ne les ont pas placés dans le fichier de sortie.

1] Comment puis-je corriger cela dans le code ci-dessus.

2] Comment puis-je résoudre cela en utilisant le module File :: Copy, tout exemple de code snip serait utile.

merci.

-AD

Answer 1

Utilisez toujours les trois arguments open.

open IN, '<:raw', $in or die "Couldn't open <$in: $!"; 
open OUT, '>:raw', $out or die "Couldn't open >$out: $!"; 

my ($len, $data); 
while ($len = sysread IN, my $data, 4096) { 
    syswrite OUT, $data, $len; 
} 
defined $len or die "Failed reading IN: $!" 

Cependant, File::Copy est si facile à utiliser que je ne comprends pas pourquoi vous ne seriez pas.

use File::Copy; 

copy($in, $out) or die "Copy failed: $!"; 

Answer 2

Appel binmode sur les deux poignées de fichiers.