tcl:从字符串中获取数字的最简单方法？

Question

嗨,让我说我有几个名字:orange12 , blue124 , red909 ,我想抓住索引号,在这种情况下:12,124和909.通常,我可以使用'字符串范围第一个'提取子字符串.并获得第一个最后我将使用'string len orange'和'string len orange12'.现在我正在寻找另一种方式来做到这一点.

作为比较,在python中,我可以做类似的事情:

'orange12'.split('orange')[1]
'blue124'.split('blue')[1]
'red909'.split('red')[1]

我怎样才能在tcl中做类似的事情？我尝试了tcl中的'split',但似乎很复杂,无法使其工作.在tcl中我怎么能用一个词(不是字符)分开？

谢谢

Answer 1

有时,scan是最有用的工具.它也经常被忽视:

scan "green012" {%[a-z]%d} word num
# $word is now “green”
# $num is now “12”