返回码错误和错误之间的区别是什么

Question

通过return -code error ...和提升TCL中的异常实际上有什么区别error ...？何时使用一个而不是另一个？

Answer 1

该error命令在当前点产生错误; 对于由于程序的内部状态而引发问题的情况,它非常适合.该return -code error命令使得它被放置在该过程中产生错误(如如果该过程是error); 对于传递给过程的参数存在问题(即调用者做错了)的情况很好.当您查看堆栈跟踪时,确实会出现差异.

这是一个(人为的!)例子:

proc getNumberFromFile {filename} {
    if {![file readable $filename]} {
        return -code error "could not read $filename"
    }
    set f [open $filename]
    set content [read $f]
    close $f
    if {![regexp -- {-?\d+} $content number]} {
        error "no number present in $filename"
    }
    return $number
}

catch {getNumberFromFile no.such.file}
puts $::errorInfo
#could not read no.such.file
#    while executing
#"getNumberFromFile no.such.file"

catch {getNumberFromFile /dev/null}
puts $::errorInfo
#no number present in /dev/null
#    while executing
#"error "no number present in $filename""
#    (procedure "getNumberFromFile" line 9)
#    invoked from within
#"getNumberFromFile /dev/null"