得到错误就像没有这样的变量

Question

我想缩进文件的所有代码，其中所有行都是从最左边开始的。所以我写了代码。

set fp [open without_spaces.tcl]
set new_file [open final.tcl w+]
set start 0
while {[gets $fp line] >= 0} {
    puts $line
    if {[regexp {\{$} $line]} {
        puts $new_file $nline
        incr $start
        #Now start brace is here, lets find closing brace
        continue
    } elseif {[regexp {\}$} $line]} {
        puts $new_file $nline
        incr $start -1
        continue
    }
    if {$start > 0} {
        puts $new_file "\t\t\t\t" $nline
    }
    if {[regexp {^\#} $line]} {}
        continue
    }
close $fp
close $new_file

但是这给了我错误 无法读取＆＃34; nline＆＃34;：没有这样的变量 并删除 nline 给我一个空的输出文件。 请帮帮我。

PS-我知道这是一个愚蠢的问题。 [仍然是NOOB]

Answer 1

将$nline设为$line

这将在final.tcl上产生输出。我测试了它。