如何在TCL中获得匹配线的第一个元素

Question

我在一个文件中有一行，如下所示：

Start Test
111111 total failures seen.
End Test

我想在TCL的一个变量中得到111111。111111数字是可变的，可以是任何数字。我该怎么做？我试过了，但它返回了除数字之外的整行，我想要这个数字。

regexp {s+[0-9]total failures seen} $line a

Answer 1

使用括号将要匹配的子字符串(数字(存储在第二个匹配变量num:中

regexp {s+([0-9]+) total failures seen} $line a num

请注意稍有不同的表达式，该表达式将字符串与一个或多个数字匹配，然后在下一个单词前加一个空格。