Discussion :

[lavazavio]

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

[Beniou]

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 :

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

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

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