Discussion :

[AI_LINUX]

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

[Dimitry.e]

Tu n'utilises sans doute pas les packages stricts et warnings.
Déjà ça t'aiderai.

Et tu veux faire avec ces lignes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$StringText = <Fic>;
		if (exists $StringText{$stop}){

[AI_LINUX]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$StringText = <Fic>;
		if (exists $StringText{$stop}){

je charge le contenu du fichier dans un variable $StringText et ensuit je lui dit de vérifier si le mots ($stop) existe dans le $StringText, c tous.
merci

[Dimitry.e]

C'est bien ce que je craignais.

Ce n'est pas dut tout ce que font ces lignes.
La première stocke une ligne de ton fichier dans une variable $StringText.
La deuxième vérifie si l'entrée $stop existe dans un tableau associatif $StringText.

Le plus simple est de parcourir ton fichier ligne par ligne et de vérifier si ces dernières contiennent les mots recherchés avec une expression régulière.