Tcl - 错误处理

Tcl 的错误处理是借助error和catch命令实现的。下面显示了每个命令的语法。

Error 语法

error message info code

在上面的 error 命令语法中，message 是错误消息，info 设置在全局变量 errorInfo 中，code 设置在全局变量 errorCode 中。

Catch 语法

catch script resultVarName

在上面的 catch 命令语法中，script 是要执行的代码，resultVarName 是保存错误或结果的变量。如果没有任何错误，catch 命令返回 0；如果有错误，则返回 1。

下面显示了一个简单的错误处理示例：

#!/usr/bin/tclsh

proc Div {a b} {
   if {$b == 0} {
      error "Error generated by error" "Info String for error" 401
   } else {
      return [expr $a/$b]
   }
}

if {[catch {puts "Result = [Div 10 0]"} errmsg]} {
   puts "ErrorMsg: $errmsg"
   puts "ErrorCode: $errorCode"
   puts "ErrorInfo:\n$errorInfo\n"
}

if {[catch {puts "Result = [Div 10 2]"} errmsg]} {
   puts "ErrorMsg: $errmsg"
   puts "ErrorCode: $errorCode"
   puts "ErrorInfo:\n$errorInfo\n"
}

执行上述代码时，会产生以下结果：

ErrorMsg: Error generated by error
ErrorCode: 401
ErrorInfo:
Info String for error
   (procedure "Div" line 1)
   invoked from within
"Div 10 0"

Result = 5

正如您在上面的示例中看到的，我们可以创建我们自己的自定义错误消息。同样，也可以捕获 Tcl 生成的错误。下面显示了一个示例：

#!/usr/bin/tclsh

catch {set file [open myNonexistingfile.txt]} result
puts "ErrorMsg: $result"
puts "ErrorCode: $errorCode"
puts "ErrorInfo:\n$errorInfo\n"

执行上述代码时，会产生以下结果：

ErrorMsg: couldn't open "myNonexistingfile.txt": no such file or directory
ErrorCode: POSIX ENOENT {no such file or directory}
ErrorInfo:
couldn't open "myNonexistingfile.txt": no such file or directory
   while executing
"open myNonexistingfile.txt"