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