Tcl lindex 和 expr：非数字失败

如何解决Tcl lindex 和 expr：非数字失败

如果我只把它放在下面就行了。

"\{[lindex ($columns) 1] - 30.3]"

如果我把它放在下面，它不起作用。不知道为什么？

"\{[lindex ($columns) 1] - 30.3] [expr [lindex ($columns) 2] -30.3] \}"

我的脚本如下：

foreach line $lines {
    set columns [split $line " "]
    puts "\{[lindex ($columns) 1] - 30.3] [expr [lindex ($columns) 2] -30.3] \}"
}

解决方法

问题在于您正在编写 ($columns) 而不是 $columns，后者将您传递给 lindex 的列表上的括号连接起来。在这种情况下，我怀疑该列表具有三个简单元素（例如，1 2 3）并且连接的结果是 (1 2 3)。索引 1 处的中间元素仍然没问题，但末尾的元素（索引 2）现在是 3) 并且是非数字的。

整件事就是一个语法错误。以下是正确编写它的方法：

puts "\{[expr {[lindex $columns 1] - 30.3}] [expr {[lindex $columns 2] -30.3}] \}"

然而，在这种情况下，写这个可能会更清楚一些：

lassign [split $line " "] c1 c2 c3
puts [format "{%f %f}" [expr {$c2 - 30.3}] [expr {$c3 - 30.3}]]