Bonjour,

le programme perl qui suit permet de dupliquer un fichier il fonctionne avec du txt mais pas, par exemple,avec du mp3 . Nb qu' avec la fonction
use File::Copy; c' est ok . Que me manque t-il pour que cela fonctionne car bien sur le but n' est pas de simplement dupliquer un fichier.
Quelqu' un peut-il m' aider ou me dire dans quelle documentation chercher?
Je suis sous windows et debutant en perl .
merci d' avance .

#!/usr/bin/perl
use warnings;

$fici = "testi.mp3" ;
$fico = "testo.mp3" ;
$nbrec = 0 ;
open(FILEO,">$fico") || die("Erreur d open $fico, Erreur: $!\n");

open(FILE,"<$fici") || die("Erreur d open $fici, Erreur: $!\n");
binmode(FILEO); # correction du 31/08/2007 10h47
binmode(FILE); # correction du 31/08/2007 10h47

while(<FILE>) {
$nbrec = $nbrec+ 1 ;

print FILEO $_ ;
}
close(FILE) ;

close(FILEO) ;

print "$nbrec\n";
print "okarret\n";

$fici = <STDIN>;