tcl - Tcl 中的列表操作

Question

我有一个列表，我正在尝试修改它并根据我想要实现的目标制作一个新列表。

原始列表

$> set a {123.4:xyz 123.4:pqr 123.4:xyz 123.4:abc 123.4:mno}
$> puts $a
$> 123.4:xyz 123.4:pqr 123.4:xyz 123.4:abc 123.4:mno

我希望我的新列表包含以下元素

$> puts $a
$> xyz pqr xyz abc mno

我试过 split $a : 但它对我没有用。请建议可以做什么。

Answer 1

set b [list]
foreach item $a {
    catch { 
        regexp {\:(.*)} $item match tail 
        lappend b $tail
    }
}
puts $b

可以用 split 而不是 regexp 来做上面的事情；我更喜欢正则表达式，因为您可以通过这种方式提取任意模式。