tcl regex correspond à l'adresse IP dans une seule ligne

Question

J'essaye d'écrire une expression rationnelle qui vérifiera si l'adresse IP est valide ou non.Face problème quand je donne 256 comme valeur il est toujours correspondant à 2, et reg va stocker la valeur comme 1 puisque le motif est apparié.

set ip "256.256.255.1" 
set reg [regexp -all{^([1-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([1-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([1-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([1-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} $ip match ] 
puts $reg 

Answer 1

Le . correspondront non échappés tout caractère, pas seulement un symbole .. Les groupes de capture sont inutiles puisque vous êtes seulement intéressé par un match entier. En outre, pas besoin d'utiliser -all puisque vous voulez valider une seule chaîne.

Utilisez

set text {256.256.255.1} 
set pattern {^(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])(?:\.(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])){3}$} 
regexp $pattern $text match 
if {[info exists match]} { 
    puts $match 
} else { 
    puts "No match" 
} 

Voir la online Tcl demo.

Motif détails:

• ^ - début de chaîne
• (?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5]) - premiers nombres correspondants d'octets 0-255
• (?:\.(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])){3} - 3 occurrences d'un . (voir \.) et l'octet sous-modèle
• $ - fin de chaîne.

Answer 2

Pour regexes très compliquées, brisant en morceaux d'améliorer la lisibilité:

set octet {(?:[1-9]?[0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} 
set ip_re [format {\m%s\.%s\.%s\.%s\M} {*}[lrepeat 4 $octet]] 

Notez votre regex ne correspond pas à octets 10 à 99 ou 0.

test

set str "hello 1.2.3.4 there 127.0.0.1 friend 256.9.99.999 x255.255.255.255" 
regexp -all $ip_re $str    ;# => 2 
regexp -all -inline $ip_re $str  ;# => 1.2.3.4 127.0.0.1