Salut,
je veux crée un code qui parcoure un fichier vocabulaire, et qui affiche chaque mot du vocabulaire avec les fichiers qui contient le mot, aider moi à corriger ce code SVP.
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
20
21
 
open(MYINPUTFILE, "< Vocabulaire"); 
my(@lines) = <MYINPUTFILE>; 
@lines = sort(@lines);
my($line);
foreach $line(@lines) 
 {
	 push @stops, $line;
 }
close(MYINPUTFILE);
foreach my $stop(@stops) {	 
	for($i=1; $i<=10; $i++)
	{				
		open(Fic,"<fichier$i");	
		$StringText = <Fic>;
		if (exists $StringText{$stop}){
		print  $stop, $i;
	}	
}	
close(Fic);
}
le code ne m'affiche rien.
Merci