tcl regexp

regexp

 

regexp  {(?:.*)(?:xx/)(.*?)(/)(.*)} $b all var

=============== tst ===============
set a {<xxxxx/fadxx/abc/yyyyyyyyyyyyyyy }
if [regexp  {(?:.*)(?:ip/)(.*?)(/)(.*)} $b all var] {puts $var}

# abc

 

1，(?:xx/) ?: 确定不要匹配的字符。如(?:xx/) 不要匹配。

2，((.*?))  ? 表示不贪婪