Discussion :

[nkdb]

Me revoilà avec mes regexp ...

Cette fois ci, j'ai une scalar :

Code :

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

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 :

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

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 ?

[2Eurocents]

Me revoilà avec mes regexp ...

Cette fois ci, j'ai une scalar :

Code :

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

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 :

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

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 :

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

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";' }

[Mr6]

Code :

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

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

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

edit : grillé....

[nkdb]

Cool, ca marche.

J'ai modifié en ceci :

Code :

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

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

merci

[2Eurocents]

edit : grillé....

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

Code :

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

$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é