我是一个新手,我在让我的 tcl 脚本工作时遇到了一些麻烦。我在网上搜索过,似乎无法理解我做错了什么。这是我写的:
set list {f01-1 f01-2 f02-1 m01-1 m01-2 m02-1}
foreach item $list {
if { [regexp {\w\d\d} $list match ] } {
puts $match
}
}
这是我得到的输出:
f01
f01
f01
f01
f01
f01
但是,这是我想要并期望得到的:
f01
f01
f02
m01
m01
f02
有没有人有任何建议来获得我的期望?
提前谢谢你!