使用regexp在tcl中查找空格分隔的数字和字母数字值

Question

我有一个数字列表（字母数字），我想在列表中找到旁边有0的数字，用空格分隔。

我正在遍历列表并使用正则表达式，但似乎无法使其正常工作，但似乎无法正常工作。

列表示例和下面显示的正则表达式代码。

请帮忙，谢谢。

17.8965
25
3.3
40.6
1e10
121.78 0
12.2 0
1e10 0


foreach item $list {
set itemNo [regexp {[^[a-zA-Z0-9.-]*$]\S+0} $item]
}

Answer 1

您正在使用\S，与您需要的完全相反（\s）。后者匹配空格字符，而前者匹配其他所有字符。你的正则表达式中似乎也有多余的括号。

工作版应为：

^[a-zA-Z0-9.-]*\s+0$

Demo