Discussion :

[vince2005]

Bonjour,

Je souhaiterai réaliser un script qui m'ouvre un fichier dans le quel il y aurait différente ligne et ne récupérer que les lignes qui n'ont pas les mots suivants : erreur, error...

Pour cela, j'avais pensé aux programme suivant :

quel est la négation pour " =~ " ?

open (FIC_READ, "<$Fichier") || die "Ouverture impossible du fichier $Fichier: $!";

my @GestionLigneExclu=("erreur","error");

while ($Ligne = <FIC_READ> )
{
if (grep { $Ligne =~ m/$_/g } @GestionLigneExclu)
{
print "traitement $Ligne \n";
}
else
{
print "erreur $Ligne \n";
}


}
close (FIC_READ);

[messinese]

Salut,

la négation pour ta regexp ( ne match pas ) est

Code :

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

!~

Cdlt.

[vince2005]

j'ai mis cela :

open (FIC_READ, "<$Fichier") || die "Ouverture impossible du fichier $Fichier: $!";

my @GestionLigneExclu=("erreur","error");

while ($Ligne = <FIC_READ> )
{
if (grep { $Ligne =~ m/$_/g } @GestionLigneExclu)
{
print "traitement $Ligne \n";
}
else
{
print "erreur $Ligne \n";
}


}
close (FIC_READ);

malgré cela, les lignes contenant le mot erreur apparaissement dans la premier condition "Traitement $Ligne".

Merci pour votre aide

[vince2005]

pardon , je voulais dire :

open (FIC_READ, "<$Fichier") || die "Ouverture impossible du fichier $Fichier: $!";

my @GestionLigneExclu=("erreur","error");

while ($Ligne = <FIC_READ> )
{
if (grep { $Ligne !~ m/$_/g } @GestionLigneExclu)
{
print "traitement $Ligne \n";
}
else
{
print "erreur $Ligne \n";
}


}
close (FIC_READ);

[messinese]

As tu essayer de printer dans ta boucle pour voir ce que ça donne comme ceci :

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
open (FIC_READ, "<$Fichier") || die "Ouverture impossible du fichier $Fichier: $!";
 
my @GestionLigneExclu=("erreur","error");
 
while ($Ligne = <FIC_READ> ) {
    if (grep { $Ligne !~ m/$_/g } @GestionLigneExclu){ 
        print "traitement $Ligne for : $_ \n";
}
else{
    print "erreur $Ligne \n";
}
 
 
} 
close (FIC_READ);

et puis la syntaxe utilisée j'avoue , j'en suis pas fan (passage de tableau à un grep comme ceci )

[Lolo78]

Suppose que $Ligne contienne: "erreur toto titi", avec @GestionLigneExclu=("erreur","error");

Ton "grep { $Ligne !~ m/$_/g } @GestionLigneExclu) " va te renvoyer "error", puisque error n'est pas dans ta ligne. Du coup, en contexte scalaire, ce sera évalué à 1 (un élément retournée par le grep) et, par conséquent, le if considérera la condition comme étrant vraie.