tcl：正则表达式匹配在字符串末尾

Question

我试图匹配子字符串在字符串中出现了很多次

str1 = st1.st2.{k}.st3.{k}.st4.{k}.
str2 = st1.st2.{k}.st3.{k}.st4.

我使用regexp在str1的末尾匹配"{k}" ：

regexp .*\.\{k\}\.$ $str1 

但是我有0！ 实际上，我使用regsub来测试regexp

regsub {.*\.\{k\}\.$} $str {}

结果==>空

如果模式匹配，匹配的字符串将被删除！ 正则表达式中缺少什么？

Answer 1

在您的代码中，正则regexp仅返回值1，而不返回0。当您想匹配最后出现的.{k}. ，您必须继续进行子比赛才能获得想要的东西。

set str1 st1.st2.{k}.st3.{k}.st4.{k}.
puts [regexp ".*(\.{k}\.)" $str1 whole last]
puts $last

输出：

1
.{k}.

$符号不是强制指定行尾的，因为我们只想匹配最后一个匹配项。

使用regsub ，您应该使用向后引用来捕获第一个组，以便可以正确地替换它。

puts [regsub "(.*)(\.{k}\.)" $str1 "\\1"] 

输出：

st1.st2.{k}.st3.{k}.st4

regsub {.*\\.\\{k\\}\\.$} $str {}什么问题？

好的，模式.*\\.\\{k\\}\\.$将匹配整个字符串，并且您将其替换为空字符串，这就是为什么得到空结果的原因。

参考： 非捕获子模式