错误：无法读取“line2”：tcl 中没有这样的变量

Question

我有一个带有这个 sn-p 的脚本：

 while {[gets $fin line] != -1} {
 if {[string first "Modem :" $line] != -1} {
            set line2 [string range $line 17 end]
            puts $fout "One : \t$line2"
    }

    puts $fout "Two : \t$line2"
 }

One : 工作并打印输出（当我在脚本中不包含 Two : 部分时）但是当我包含 Two : 时，它会显示

error : can't read "line2": no such variable
    while executing
"puts $fout "Two : \t$line2""
    ("while" body line 14)

从if出来后不是还持有line2的值吗？

Answer 1

_{在聊天中，this 是$fin 的样本。}

代码的问题是while {[gets $fin line] != -1} 一次循环遍历$fin 的每一行，而不是一堆在一起。 read 是在一个变量中获取所有行的命令。

这意味着当读取第一行时，循环的第一次迭代中没有$line1 或$line2，因此puts 将无法通过这些名称检索变量。

我建议的解决方案是首先获取每个必需的变量，然后在为“块”收集所有内容后，一次打印它们。

set fin [open imp_info r]
set fout [open imfp_table w]

puts $fout "LINK\tModem Status"
puts $fout "----\t------------"

while {[gets $fin line] != -1} {

        # If there is "wire-pair (X)" in the line, get that number
        regexp -- {wire-pair \(([0-9]+)\)} $line - wire_pair_no

        # Last column, get the value and puts everything
        if {[regexp -- {Modem status: ([^,]+)} $line - status]} {
               puts $fout "$wire_pair_no\t$status"
        }

}

输出：

LINK    Modem Status    
----    ------------
0       UP_DATA_MODE
1       UP_DATA_MODE

Answer 2

如果你在这个循环中读到的第一行：

while {[gets $fin line] != -1} {
    if {[string first "Modem :" $line] != -1} {
        set line2 [string range $line 17 end]
        puts $fout "One : \t$line2"
    }
    puts $fout "Two : \t$line2"
}

你在它的某处没有“Modem :”，处理if时条件不满足并且变量没有被触及。以下puts 失败，因为line2 变量尚未设置为任何值；那里没有变量，$ 语法根本不喜欢这样。

一种可能的解决方法是在循环开始之前将line2 设置为：

set line2 "DUMMY VALUE"

或者您应该将正在读取的变量更改为 line 而不是 line2。

puts $fout "Two : \t$line"

或者你应该在读取变量之前测试它是否存在：

if {[info exists line2]} {
    puts $fout "Two : \t$line2"
}

一切都会奏效，但他们做的事情不同，我不知道你想要什么……