Набор переменных в регулярном выражении с совпадающими нулевой или один

Question

я должен разделить IP-адрес и порт и использовать этот код

set str 192.168.1.1:44 
set port 23 
regexp {(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d+)?} $str all ip port 
puts $ip 
puts $port 

И это прекрасно работает. Но если использовать $ str без порта (например, 192.168.1.1), ни одна из переменных не была установлена, а TCL возвращает ошибку.

can't read "ip": no such variable 

Regex все еще соответствует «192.168.1.1», без порта (я проверил его с «если» заявление) без порта, но почему она не возвращает переменные? Я ожидал $ all и $ ip.

Answer 1

Вы должны делать опцию col и необязательно выполнять регулярное выражение в другой группе.

Regex:^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(?::?(\d+))?$

Объяснение:

• IP-адрес фиксируется в первой группе.

• Дополнительный номер порта фиксируется во второй группе. : является частью группы, не участвующей в захвате, поэтому она не фиксируется во второй группе.

Regex101 Demo

Answer 2

sharad@ss:~$ cat my.tcl 
proc foo {str} { 
    regexp {(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(:(\d+))?} $str all ip tmp port 
    puts ip=$ip,port=$port 
} 
foo 192.168.1.1:44 
foo 192.168.1.1 
sharad@ss:~$ 


Output: 
sharad@ss:~$ tclsh my.tcl 
ip=192.168.1.1,port=44 
ip=192.168.1.1,port= 
sharad@ss:~$ 

Answer 3

set str 192.168.1.1:44 
lassign [split $str :] ip port 
if {$port eq ""} { 
    set port 23 
} 
puts $ip 
puts $port 

Если вам необходимо убедиться, что $ip строка является допустимым IP-адрес, то лучше использовать ip пакет, чем регулярное выражение (регулярное выражение вы будете использовать много недопустимых IP-адресов).

Обратите внимание, что у вас будет много проблем с адресами IPv6.

Документация: if, lassign, puts, set, split, ip пакет