Erreur de filehandle

Version imprimable

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:

Filehandle STDOUT reopened a FICOPEN only for input at ...

Voici le bout de code :
Code:

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 :)

Bonjour,

Comme ça je vois 2 solutions :

1) utiliser un autre nom pour le descripteur de fichier que STDOUT qui représente la sortie standard du programme car tu n'utilises pas vraiment une sortie de print : tu écris dans un fichier puis tu le lis : pour cela tu peux utiliser n'importe quel nom de descripteur.
ex :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open(FIC, ">$liste") || die ("Erreur FIC");
	opendir(DIR, $dossier) || die "$dossier n\'existe pas !";
	my @files = readdir(DIR);
	foreach $fichier (@files) 
	{
		$nbrep++;
		print FIC "$dossier\\$fichier\n";
	}
	closedir(DIR);
close(FIC);
 
 
open(FICOPEN, "<$liste") || die ("Erreur");
foreach(<FICOPEN>) {
    @tab = $_;
    chomp($tab[0]);
    system("$path\\md5sums.exe -u -e $tab[0] >> $origin");
}
close(FICOPEN);

2) Ou alors tu fais un close de ton STDOUT en fin de script et non au mileu:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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);
 
 
 
open(FICOPEN, "<$liste") || die ("Erreur");
foreach(<FICOPEN>) {
    @tab = $_;
    chomp($tab[0]);
    system("$path\\md5sums.exe -u -e $tab[0] >> $origin");
}
close(FICOPEN);
close(STDOUT);

27/02/2012, 16h17
lavazavio

C'était tout simplement ca !

J'ai utilisé ta 1ère solution et cela fonctionne parfaitement maitenant.

Merci beaucoup pour ton aide (et ta rapidité de réponse) :ccool: