scinder une chaine ip

Bonjour,

Dans un de mes scripts, j'utilise ceci:

my $resultat2 = $ENV{'REMOTE_ADDR'};

Je récupère donc les adresses ip des visiteurs sur mes pages.
Voilà ma question:

Imaginons que 3 visiteurs soit passés sur le site et qu'ils aient respectivement ces ip là par exemple:

1) 139.165.157.41
2) 80.155.10.11
3) 155.80.115.20

Je voudrai pour chacunes de ces 3 ip, extraire ceci:

1) 139.165
2) 80.155
3) 155.80

Ma question est donc la suivante :
Que dois-je appliquer à ma chaine de caractères se trouvant dans $resultat2 pour arriver à ce que je veux ?

Bien à vous,
roger12.

une expression reguliere ;)

Code:

---

my $ma_recherche_ip = $resultat2 =~ /^(\d+\.\d+)/;

---

voilà

Bonjour djibril,

J'ai essayé ce que tu as mis et il y a un petit problème:

Mon ip est de type:

139.165 .xxx.xxx

J'aurai voulu sortir '139.165' dans ce cas là et avec ce que tu m'as donné, je récupère '1' seulement...

Bien à toi.

pardon, c ma faute, c'est :

Code:

---

my ($ma_recherche_ip) = $resultat2 =~ /^(\d+\.\d+)/;

---

ou une autre façon d'ecrire :

Code:

---

1 2	$resultat2 =~ /^(\d+\.\d+)/; my $resultat2 = $1;

---

j'avais oublié les parentheses.

voilà

Un tout grand merci.