Как получить первый элемент совпадающей строки в TCL

Question

У меня есть строка в файле, как показано ниже:

Start Test
     111111 total failures seen.
End Test

Я хочу получить 111111 в переменной в TCL. Номер 111111 является переменным и может состоять из любого количества цифр. Как я могу это сделать? Я пробовал это, но он возвращает всю строку, кроме номера, и мне нужен номер.

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

Answer 1

Используйте круглые скобки, чтобы сохранить подстроку, которой вы хотите сопоставить (числа) во второй переменной сопоставления, num:

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

Обратите внимание на немного другое выражение, которое соответствует строке с единицей или более цифр с пробелом перед следующим словом.