Discussion :

[vince2005]

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.

[Lolo78]

Que veux-tu dire par "comment afficher la négation"? Je ne comprends pas la question.

Sinon, juste un petit commentaire. Dans ce genre de cas, pour exclure une ligne de la suite d'un traitement je préfère faire quelque chose comme ceci:

Code :

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

1
2
3
4
5
6
	while (my $Ligne = <FIC_READ> ) {  	
		#remplacement des espaces par des "-"
                $Ligne =~ s/[\s]/\|/g;
 		next if grep { $Ligne =~ m/$_/g } @GestionLigneEnteteExclu;
		print">>$Ligne\n" ; 
	}

ou encore:

Code :

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

1
2
3
4
5
	while (my $Ligne = <FIC_READ> ) {  	
		#remplacement des espaces par des "-"
                $Ligne =~ s/[\s]/\|/g;
 		print">>$Ligne\n" unless grep { $Ligne =~ m/$_/g } @GestionLigneEnteteExclu; 
	}

Cela donne du code plus compact, avec moins de signes de ponctuation et à mon avis plus facile à lire (moins de blocs imbriqués). Mais ce n'est qu'une question de goût personnel.

[6ril23]

Tout à fait d'accord avec la réponse de @Lolo

je te propose juste en complément ton code avec la négation (enfin si j'ai bien compris)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
	while (my $Ligne = <FIC_READ> ) 
	{  	
		#remplacement des espaces par des "-"
                         $Ligne =~ s/[\s]/\|/g;
 
		if (grep { $Ligne !~ m/$_/g } @GestionLigneEnteteExclu)
		{ 
			print">>$Ligne\n" ; 	
		}
	}
close (FIC_READ) ;