Предположим, set s1 "some4number" Я хочу изменить его на some5number. Я надеялся, что это сработает: regsub {(\d)(\S+)} $s1 "[expr \\1 + 1]\\2" Но выдает ошибку. Каким был бы идеальный способ сделать это в TCL?

У меня есть список, который выглядит так: list1 = {a.b.c.d a.bb.ccd\[0\] a.bb.ccd\[1\] ....} Когда я работаю с элементом списка один за другим , используя цикл foreach: `foreach ele $list1 { puts "$ele }` Я получаю следующий вывод:...