单独获取所有子匹配的值，将匹配保留在正则表达式-inline中

Question

我正在尝试在regexp内联中单独获取子匹配。

set a "class-map id 400
   channel-rate normal
   class-map id 670
   channel-rate normal
   class-map id 456
   channel-rate normal"

puts [regexp -inline -all {class-map\sid\s([0-9]+)} $a]

它给出了一个列表，如{class-map id 400} 400 {class-map id 670} 670 {class-map id 456} 456

如何在列表中单独获取子匹配项？

Answer 1

使用foreach命令的可变列表功能：

set ids {}
foreach {match submatch} [regexp -inline -all {class-map\sid\s([0-9]+)} $a] {
    lappend ids $submatch
}
set ids    ;# => 400 670 456