小编Pra*_*mar的帖子

你好frnds m面对这个程序的问题..有没有告诉我哪里mi犯错？能够验证255.255.255.255的IP地址

puts "Enter a valid ip address:"
set string [gets stdin]
if {[regexp {^([1-9]|[1]\d{2}|[2][0-4]\d|25[0-5])((\.\d{0,2}|1\d{2}|2[0-4]\d|25[0-5]){3})$} $string match]} {
    puts $string
} else {
    puts "INVALID-ADDRESS"
}