REGEXP probleme expression

Bonjour,

J'aimerais avoir une regexp qui arrive à me matcher des expressions du genre:

Code:

---

route delete src 192.168.1.10 dst 192.12.23.69 ncol test

---

Jusqu'ici, pas de soucis. Mais je dois également être capable de matcher ces expressions

Code:

---

1 2 3

route delete src 192.168.1.10 route delete src 192.168.1.10 route dst 192.168.1.10 route delete dst 192.168.1.10

---

J'ai essayé de faire une expression comme celle ci

Code:

---

1 2 3 4 5 6

my $ip = "[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}"; my $cole = "[a-zA-Z0-9:_\-]+";     ^route\sdelete\ssrc\s($ip)|dst\s($ip)|ncol\s($col)

---

Mais bien évidemment le | est "exclusif", c'est à dire qu'il est seulement capable de comprendre des expressions comme celles ci:

Code:

---

1 2 3 4

route delete src 192.168.1.10 route delete dst 192.168.1.10 route delete ncol test

---

Avez vous une idée pour que ma regexp match tous les exemples d'expressions données ci dessus?

Merci

Code:

---

^route\sdelete\ssrc\s($ip)(?:dst\s($ip)|ncol\s($col))?

---

Merci c'est presque ce que je veux je l'ai un tout petit peu modifier pour que src ne soit pas obligatoire :

Code:

---

/^route\sdelete\s(?:src\s($ip)|dst\s($ip)|ncol\s($col))?/

---

mais je n'arrive pas a matcher mes variables $2 et $3. Cela est du au

Code:

---

(?:

---

. Mais en faisant comme ci dessous, je retombe sur le meme probleme que tout à l'heure:

Code:

---

/^route\sdelete\s(src\s($ip)|dst\s($ip)|ncol\s($col))?/

---

Egalement, quand je veux empêcher que l'on utilise deux fois le même argument :

Code:

---

1 2	route delete src 1.1.1.1 src 1.1.1.1

---

ca ne fonctionne pas non plus :roll: Je tourne en rond :aie:

ca ne change rien, je n'ai toujours rien dans mes variables $2 (dst) et $3 (ncol)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl; use warnings; use strict;   my @chaines = ( 'route delete src 192.168.1.10 dst 192.12.23.88 ncol test', 'route delete src 192.168.1.10 route dst 192.12.23.69 ncol test', 'route delete src 192.168.1.10', 'route delete src 192.168.1.10 route dst 192.168.1.22', ); my $ip = "[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}"; my $cole = "[a-zA-Z0-9:_\-]+";   foreach my $chaine ( @chaines ) { my ($ip1, $ip2, $ncol); if ( ($ip1, $ip2, $ncol) = $chaine =~ m/^route delete src ($ip) *(?:(?:route)? *dst ($ip)(?: ncol ($cole))?)?/ ) { print "$chaine\n"; print "\tIP1 : $ip1\n" if ($ip1); print "\tIP2 : $ip2\n" if ($ip2); print "\tNCOL : $ncol\n" if ($ncol); print "\n"; } }

---

Résultat :

Citation:

---

route delete src 192.168.1.10 dst 192.12.23.88 ncol test
IP1 : 192.168.1.10
IP2 : 192.12.23.88
NCOL : test

route delete src 192.168.1.10 route dst 192.12.23.69 ncol test
IP1 : 192.168.1.10
IP2 : 192.12.23.69
NCOL : test

route delete src 192.168.1.10
IP1 : 192.168.1.10

route delete src 192.168.1.10 route dst 192.168.1.22
IP1 : 192.168.1.10
IP2 : 192.168.1.22

---

merci beaucoup pour ton aide ca fonctionne :ccool:

voici la regexp que je cherchais

Code:

---

m/^route delete (?:src ($ip) *(?:dst ($ip)(?: ncol ($cole))?)?)?/

---