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"