Bonjour,

Je suis débutant en perl.
J'ai écrit un petit script qui récupère la liste des fichiers dans un répertoire et qui génère le hash md5 pour chaque fichier.

Mais voila, j'ai l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Filehandle STDOUT reopened a FICOPEN only for input at ...
Voici le bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open(STDOUT, ">$liste") || die ("Erreur de redirection de STDOUT");
	opendir(DIR, $dossier) || die "$dossier n\'existe pas !";
	my @files = readdir(DIR);
	foreach $fichier (@files) 
	{
		$nbrep++;
		print STDOUT "$dossier\\$fichier\n";
	}
	closedir(DIR);
close(STDOUT);
 
 
open(FICOPEN, "<$liste") || die ("Erreur");
foreach(<FICOPEN>) {
    @tab = $_;
    chomp($tab[0]);
    system("$path\\md5sums.exe -u -e $tab[0] >> $origin");
}
close(FICOPEN);
Si quelqu'un pouvait m'expliquer d'où vient cette erreur, je ne saurais le remercier