tcl通过regexp赋值变量示例，赋值变量两个以上

在TCL中，`regexp`命令不仅可以用来测试字符串是否匹配某个正则表达式，还可以使用`capture`选项来捕获并存储匹配的部分到变量中。下面是一个同时匹配并赋值给两个及以上变量的示例：

set text "This is a sample text with multiple words and numbers: 12345"

# 定义要捕获的组，假设我们关心的是单词和数字
set pattern {(\w+)(\d+)}

# 使用capture选项获取匹配结果，并分配给两个变量
regexp -capture $pattern $text word num

# 检查是否匹配成功
if {![catch {list $word $num} result]} {
    puts "Word: $word, Number: $num"
} else {
    puts "No match found."
}

# 如果有多于两个捕获组，可以依次增加变量名，如word1、word2等
# 但在实际操作中，通常会选择使用数组或者列表来管理多个匹配项

在这个例子中，`(\w+)`匹配一个或多个字母、数字或下划线，而`(\d+)`匹配一个或多个数字。`-capture`选项使得`$word`保存第一个捕获组（单词部分），`$num`保存第二个捕获组（数字部分）。