如何在TCL代码中找到错误

Question

我正在学习TCL,并想知道如何在代码中找出错误.我的意思是什么行没有发生错误或如何调试它.

以下是我正在尝试的代码:

proc ldelete {list value}{
    set ix [lsearch -exact $list $value]
    if{$ix >=0}{
        return [lreplace $list $ix $ix]
    } else {
        return $list
    }
}

以下是我得到的错误:

 extra characters after close-brace

我将感谢你的帮助.

谢谢aditya

Answer 1

如果你这样运行:

tcl foo.tcl

然后你应该收到一条错误信息,告诉你错误是在第1行.(问题是在闭括号和开括号之间缺少空格.)

作为一般规则,如果您以交互方式工作,有用的消息(例如堆栈跟踪)通常在errorInfo中找到,因此这通常很有用:

% puts $errorInfo