expression reguliere (encore)

Me revoilà avec mes regexp ... :(

Cette fois ci, j'ai une scalar :

Code:

---

1 2	toto (172.18.237.51) at 0:3:ba:4:39:dd permanent published

---

et je veux récupérer uniquement l'IP.

J'ai tenté sans conviction un :

Code:

---

1 2 3

$IP_result = "toto (172.18.237.51) at 0:3:ba:4:39:dd permanent published"; $IP_result =~ s/!([0-9]{1-3}\.[0-9]{1-3}\.[0-9]{1-3}\.[0-9]{1-3})//;

---

sans succès biensur.

Help ?

Citation:

---

Envoyé par nkdb

Me revoilà avec mes regexp ... :(

Cette fois ci, j'ai une scalar :

Code:

---

1 2	toto (172.18.237.51) at 0:3:ba:4:39:dd permanent published

---

et je veux récupérer uniquement l'IP.

---

L'IP, ici, c'est le machin constitué de chiffres et de points, entouré par des parenthèses, non ?

Code:

---

1 2	$IP_result = "toto (172.18.237.51) at 0:3:ba:4:39:dd permanent published"; if ($IP_result =~ m/\((.*)\)/) { print "$1\n";' }

---

En première approche ...

Et plus finement :

Code:

---

1 2	$IP_result = "toto (172.18.237.51) at 0:3:ba:4:39:dd permanent published"; if ($IP_result =~ m/\(([0-9.]+)\)/) { print "$1\n";' }

---

Code:

---

$IP_result =~ s/.*\((.*)\).*/$1/;

---

ca m'aurait l'air pas mal ca, même si un peu crade... ;)

edit : grillé....:mrgreen:

Cool, ca marche.

J'ai modifié en ceci :

Code:

---

$IP_result =~ s/.*\((([0-9]{1,3}\.){3}[0-9]{1,3})\).*/$1/;

---

merci

Citation:

---

Envoyé par Mr6

edit : grillé....:mrgreen:

---

Carbonized, même :mouarf:
Tiens, je vais soumettre un smiley tout noir et qui fume pour ce genre de situation 8-)

Citation:

---

Envoyé par Mr6

Code:

---

$IP_result =~ s/.*\((.*)\).*/$1/;

---

ca m'aurait l'air pas mal ca, même si un peu crade... ;)

---

Pour l'aspect "un peu crade", j'ai toujours trouvé génante la tendance à utiliser une substitution là où un match avec mémorisation peut suffire.

Je préfère m/(motif)/ et l'usage subséquent de $1 ou la récupération des correspondance dans une liste, plutôt que le s/.*(motif).*/$1/ qui altère la même variable et interdit tout autre traitement en cas d'évolution du code ...

C'est un avis personnel et ne faisant absolument aucune sorte d'autorité ;)