Discussion :

[calimero642]

Bonjour a tous,
voila mon xpression reguliere qui ne matche pas tout a fait ce que je souhaite.

Code :

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

1
2
3
4
 
my $Type_Switch_Cisco="ciscoWSC6503";
 
$Nbr_Alim = $Ligne_Materiel_Lan if ($Ligne_Materiel_Lan =~ /$Type_Switch_Cisco\t+(\d)/);

Voici la ligne d un fichier ou je souhaite selectionner le chiffre "2":
ciscoWSC6503 2 N

Merci d avance Jules

[djibril]

if ($Ligne_Materiel_Lan =~ /$Type_Switch_Cisco\t+(\d)/);
c'est pas plutôt \s

[calimero642]

Le probleme c est qu il me matche toute la ligne malgres les parentheses.

[test_ju]$ ./programme_energie.pl
ciscoWSC6503 2 N

Alors que moi je voudrais selectionner juste le chiffre 2 !!!
Merci d avance Jules

[2Eurocents]

Le probleme c est qu il me matche toute la ligne malgres les parentheses.

Non, le "problème" c'est que tu récupère toute la variable, dans ton affectation, en cas de succès de la mise en correspondance :

Code :

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

$Nbr_Alim = $Ligne_Materiel_Lan if ($Ligne_Materiel_Lan =~ /$Type_Switch_Cisco\t+(\d)/);

Je rappelle que la partie mémorisée par les parenthèse est rangée dans $1, $2, $3, ... ou bien dans un tableau retourné par la mise en correspondance. Or tu n'utilise ni l'un, ni l'autre

[Mr6]

Code :

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

1
2
3
4
 
my $Type_Switch_Cisco="ciscoWSC6503";
 
$Ligne_Materiel_Lan =~ s/$Type_Switch_Cisco\s(\d)\s(.*)/$1/;

C'est brutal, mais ca doit marcher

-----
La soluce ci-dessous de djibril est plus propre en effet !

[djibril]

Code :

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

1
2
3
my $Type_Switch_Cisco="ciscoWSC6503";
 
$Nbr_Alim = $1 if ($Ligne_Materiel_Lan =~ /$Type_Switch_Cisco\t+(\d)/);

[calimero642]

Merci ca fonctionne mais pourquoi je suis obligé d'utilisé $1, je peux pas affecter le contenu des parentheses dans la regex a une varibale ?

Merci encore Jules

[2Eurocents]

J'ai tendance à préférer :

Code :

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

($Nbr_Alim) = ($Ligne_Materiel_Lan =~ m/$Type_Switch_Cisco\t+(\d)/);

Sachant qu'en cas d'échec, $Nbr_Alim contient undef (retourne faux au test defined ($Nbr_Alim)).

Mais il y a plus d'une façon de le faire

[Mr6]

dans ton if tu n'as qu'un test, donc au mieux tu peux récupérer 1 si le test est vrai... le contenu du match est passé à $1.... si tu mets des parenthèses pour définir ce que tu veux récupérer.

[calimero642]

Oki merci ca focntionne et ca matche dc ma gegex etait bonne c est juste que j etais pas assez reflechit !!!
Jules