Tcl中的错误处理是借助 error 和 catch 命令提供的。这些命令的语法如下所示。
error message info code
在以上错误命令语法中,message是错误消息,info是在全局变量errorInfo中设置的,而code是在全局变量errorCode中设置的。
catch script resultVarName
在上述catch命令语法中,脚本是要执行的代码,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生成的错误。一个例子如下所示-
链接:https://www.learnfk.comhttps://www.learnfk.com/tcl-tk/tcl-error-handling.html
来源:LearnFk无涯教程网
#!/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"
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)