当用户输入为空时应该抛出什么异常？

Question

我已经搜索了一段时间，我确定我错过了，是否有任何文档说明当值不正确/空白时应该抛出什么？

例如，Python 具有 ValueError，并且文档清楚地说明了何时使用它。

我有以下方法：

proc getJobinfo {question} {
    puts -nonewline "$question: "
    flush stdout
    gets stdin answer
    set cleanedanswer [string trim [string totitle $answer]]
    if {$cleanedanswer eq ""} {
       # What error should be thrown?
    }
    return $cleanedanswer
}

我搜索了throw、error 和catch，但找不到。

Answer 1

Tcl 没有预定义的异常层次结构。 throw 命令有 2 个参数：type 是单词列表； message 是人类的错误消息。

你可以做类似的事情

proc getJobinfo {question} {
    ...
    if {$cleanedanswer eq ""} {
        throw {Value Empty} "Please provide a suitable answer."
    } elseif {[string length $cleanedanswer] < 5} {
        throw {Value Invalid} "Your answer is too short."
    } else ...
    return $cleanedanswer
}

如果您想捕获该错误：

try {
    set answer [getJobinfo "What is the answer to this question"]
} trap {Value *} msg {
    puts "Value Error: $msg"
}

---

throw 和try 通过throw 调用的type 词进行交互。我们抛出“Value Empty”或“Value Invalid”。在陷阱中，我们完全匹配Value，但我们不会完全匹配*。事后看来，* 不应该在那里。 try 手册页初读时不是很清楚：

陷阱 模式 变量列表 脚本

如果 body 的评估导致错误并且解释器状态字典中 -errorcode 的前缀等于 pattern。从 -errorcode 中提取的前缀词数等于 pattern 的 list-length，并且在 -errorcode 和 pattern 进行比较。

pattern 不是regexp 或string match 意义上的模式：它是一个单词列表，与try 中抛出的单词列表一一匹配身体。

try 可以使用多个陷阱来实现级联“捕获”：

try {
    set answer [getJobinfo "What is the answer to this question"]

} trap {Value Empty} msg {
    do something specific here

} trap {Value Invalid} msg {
    do something specific here

} trap {Value} msg {
    do something general for some other "throw {Value anything} msg"

} on error e {
    this can be default catch-all for any other error

} finally {
    any cleanup code goes here
}