使用tcl验证ip-address

Question

你好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"
}

Answer 1

不要重新发明轮子.有许多有关如何验证IP地址的工作示例.在这里查看一些http://wiki.tcl.tk/989

此外,如果您有TCLlib,您可以使用:: ip :: version命令,例如

% package require ip
1.2
% ::ip::version 192.168.0.1
4
% ::ip::version www.google.com
-1
% ::ip::version 192.168.0.333
-1