Tcl正則表達式字符串匹配

Question

我有一個像這樣的字符串列表：

A/B/C/P/E

我想使用正則表達式來捕獲最多

A/B/C/P

並忽略尾隨/E

我試過用：

set mystring {A/B/C/P/E}
regex -nocase -- {(.*)\/\S+} $myString match
puts $match

但

puts $match 

版畫

A/B/C/P/E

我究竟做錯了什么？

Answer 1

你實際上做了幾件事。

1. 你有一個名為$mystring的字符串，但你在函數中使用$myString 。

2. regexp的語法是：

    regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...? 

   所以，如果你想要子匹配，你需要使用另一個變量。

現在，為了使一切更清潔，您可以使用：

set myString {A/B/C/P/E}
regexp -- {(.*)/\S+} $myString -> match
puts $match
# => A/B/C/P

鍵盤演示

您不需要轉義正斜杠，如果您的正則表達式中沒有包含大小寫的字符，則不需要-nocase標志。

整個匹配存儲在名為->的變量和match的第一個子match 。

Answer 2

替代方法：拆分字符串，除最后一個元素外，重新加入列表：

% set mystring {A/B/C/P/E}
A/B/C/P/E
% set new [join [lrange [split $mystring /] 0 end-1] /]
A/B/C/P