如何使用http包下载文件？

Question

如何使用http包下载文件？

package require http
set file  [ ::http::geturl "<url>"] 

类似卷曲的东西：

curl -X GET '<URL>' -o /tmp/download.tar

我的要求是我在Linux服务器X上有一个文件，并且在另一个Linux服务器Y上有一个文件，在这里我与Tcl一起安装了http包。 现在有人可以建议如何从X下载该文件并将其保存在Y中吗？

Answer 1

如果您阅读了文档 ，则会看到如果传递-channel选项，则http::geturl命令会将数据从URL写入该通道。 它可以有效地做到这一点。 另外，如果传递-binary标志，则可以强制不对字节进行任何解释。 这些是您需要的工具。

但是，您还应该知道http::geturl的返回值是一个“令牌”，该令牌在其他命令中使用，例如，查询GET是否成功。 完成后应将其清除。

这是一个几乎没有错误检测的示例。

set f [open /tmp/download.tar wb]
set tok [http::geturl $URL -channel $f -binary 1]
close $f
if {[http::status $tok] eq "ok" && [http::ncode $tok] == 200} {
    puts "Downloaded successfully"
}
http::cleanup $tok

有很多事情可能出错！

Answer 2

如果您搜索了“ tcl http下载文件”，则会发现此页面 ， 该页面具有以下代码：

package require http
proc getPage { url } {
    set token [::http::geturl $url]
    set data [::http::data $token]
    ::http::cleanup $token          
    return $data
}

该命令名为getPage ，但它将为您获取大多数文件。 它不能正确处理二进制文件，但是如果您搜索更多文件或查看文档，将了解如何处理这些文件。