Bonjour,

Je voudrais récupérer toutes les lignes d'un fichier, sauf celle comportant certains mots.

Voici le début de mon script dans lequel je souhaiterai tester, si ma ligne ne contient pas le mot de la liste de mon tableau, alors je l'affiche.

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
 
            my $FicPresence="C:_toto.txt";
	my @GestionLigneEnteteExclu=("LogicalName","PhysicalName", "lignes","---");
 
	open (FIC_READ, "<${TempSql}/${FicPresence}")  || die "Ouverture impossible du fichier ${FicPresence}: $!";
	while (my $Ligne = <FIC_READ> ) 
	{  	
		#remplacement des espaces par des "-"
                         $Ligne =~ s/[\s]/\|/g;
 
		if (grep { $Ligne =~ m/$_/g } @GestionLigneEnteteExclu)
		{ 
			print"on n'affiche rien" ; 	
		}
		else {
			print">>$Ligne\n" ; 
		}
 
	}
close (FIC_READ) ;
Comment afficher la négation ?? merci pour votre aide.