TCL中的URL验证

我正在尝试使用TCL中的HTTP包通过HTTP下载一个文件。如果给定的URL是正确的，那么一切都正常，但是如果给定的URL是错误的，那么它不会抛出任何错误。现在我的问题是，如何使用TCL验证给定的URL

提前感谢,，

---

Vijay

http包不会对大多数故障抛出错误（主机解析除外）；您必须使用命令检查它们

---

（此代码将泄漏令牌；它忽略了

http:：cleanup

call…

完美答案。非常感谢您的快速帮助。

set token [http::geturl $theWrongUrl]
if {[http::ncode $token] >= 400} {
    error "http problem: [string range [http::code $token] 13 end]"
}