0

我有以下代码，我试图通过regexp函数将单行上的数据匹配到不同的变量中。regexp函数中的数据数量（在输入行上）和变量名称可能会有所不同，这就是我使用 $varLine （之前在我的真实代码中处理过）的原因。

set in_stim "13 1 1 0 1 0 0 0 2 03"
set regex {^(\d+)\s([01])\s([01])\s([01])\s([01])\s([01])\s([01])\s([01])\s(\d+)\s(\d+)}
set varLine "sig1 sig2 sig3 sig4 sig5 sig6 sig7 sig8 sig8"
regexp $regex $in_stim whole sig0 $varLine
puts "sig0: $sig0"
puts $sig1

当我执行它时，我收到以下错误（正确显示 $sig0）： 

    sig0: 13

    can't read "sig1": no such variable
    while executing
"puts $sig1"

如果我手动将 $varLine 替换为正则表达式行，错误就会消失：

set in_stim "13 1 1 0 1 0 0 0 2 03"
set regex {^(\d+)\s([01])\s([01])\s([01])\s([01])\s([01])\s([01])\s([01])\s(\d+)\s(\d+)}
regexp $regex $in_stim whole sig0 sig1 sig2 sig3 sig4 sig5 sig6 sig7 sig8 sig8
puts $sig0
puts $sig1

我得到以下正确的输出：

13
1

有人在我的代码中看到错误或可以提供帮助吗？谢谢！

4

2 回答 2

2

当你这样做

set varLine "sig1 sig2 sig3 sig4 sig5 sig6 sig7 sig8 sig8"
regexp $regex $in_stim whole sig0 $varLine

Tcl 解析器regexp正好传递命令五个参数，第五个参数是变量“varLine”的内容，然后regexp命令将其视为一个单词。一个单词显然表示一个变量（在您的情况下，名称有点复杂，因为它发生了）。

为了做你需要的事情，你必须求助于动态脚本，这可以通过两种方式完成：

  1. “经典”方法使用eval：

    eval [concat [list regexp $regex $in_stim whole sig0] $varLine]

  2. 从 Tcl 8.5 开始使用{*}语法糖：

    regexp $regex $in_stim whole sig0 {*}$varLine

经典方法首先通过连接两个列表来构造单词列表：命令的“静态”部分，然后是要传递给它的变量列表。然后将构造的列表eval用作命令。您可以在这本经典书籍中阅读更多相关信息。

在新式方法中，{*}thingy 用于将 $varLine 的内容扩展为“就地”列表——请参阅此处的第 5 条规则。

于 2012-07-05T13:40:24.437 回答
2

问题是该regexp命令不采用将子匹配存储为一个参数的变量列表，而是采用尽可能多的参数。

解决此问题的最简单方法是扩展变量列表：

regexp $regex $in_stim whole sig0 {*}$varLine
于 2012-07-05T13:40:49.757 回答