tcl与wget交互

Question

在我的tcl脚本中，我使用wget从http地址下载文件。

代码：

catch {open "|wget -q --output-document Tags.xlsx --http-user=$env(USER) --ask-password \"http://web.com/sites/Documents/Names.xlsx\""} fh
fileevent $fh writable {
puts $fh "password"
}

错误：

channel is not writable
    while executing
"fileevent $fh writable {
    puts $fh "password"
}"

为什么频道不可写？ 运行纯wget时，它会在提示符下请求密码。

Answer 1

错误是频道不可写。尝试用

打开它

open "......" r+

允许读写访问。