Discussion :

[vince2005]

Bonjour,

Je souhaiterai savoir rapidement si un mot est présent dans un fichier.
Dans le code, si dessous, je scrute ligne par ligne : pas trés rapide ! si vous avez mieux, je suis preneur !

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
 
my $FicControle="$PathTemp/Controlext";	
my $Param="toto";
 
open (FIC_CONTROLE, "$FicControle") ;
	 while ($Ligne = <FIC_CONTROLE> ) 
	 {  
	         if ($Ligne =~ /${Param}/) {
		print "La tâche ${Param} est présente :  OK\n"
	         }
	        else
		{
                         print "${Param} n'existe pas dans le catalogue \n"
		}
	}		
close (FIC_CONTROLE);

[djibril]

C'est la solution la plus rapide. Néanmoins, tu peux arrêter la lecture du fichier si tu as trouvé ton mot en faisant un last.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my $FicControle = "$PathTemp/Controlext";
my $Param       = "toto";
 
open( FIC_CONTROLE, '<', $FicControle ) or die ("$FicControle : $!");
while ( $Ligne = <FIC_CONTROLE> ) {
  if ( $Ligne =~ /$Param/ ) {
    print "La tâche $Param est présente :  OK\n";
    last;
  }
}
close(FIC_CONTROLE);

[vince2005]

merci !

[djibril]

merci !

J'ai corrigé mon message précédent, c'est un last qu'il faut utiliser.

[vince2005]

Ce code fonctionne, mais il m'affiche plusieurs fois la ligne "La tâche $Param n'est pas présente : KO\n"; puisqu'il fait une recherche ligne par ligne.

Moi je souhaiterai simplement qu'il m'affiche une seule fois, soit le mot est présent ou ne l'es pas. Mais une seule et une seule fois.

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
 
my $FicControle = "$PathTemp/Controlext";
my $Param       = "toto";
 
open( FIC_CONTROLE, '<', $FicControle ) or die ("$FicControle : $!");
while ( $Ligne = <FIC_CONTROLE> ) {
  if ( $Ligne =~ /$Param/ ) {
    print "La tâche $Param est présente :  OK\n";
    last;
  }
  else
  {
    print "La tâche $Param n'est pas présente :  KO\n";
   }
 
}
close(FIC_CONTROLE);

[mikai]

utilise une variable de test, initialise la à faux.
passe la à vrai si la ligne est trouvée.
puis en dehors de la boucle affiche la sortie voulue selon le status de la variable ...