Tcl：了解 IO 通道

Question

在浏览下面链接中的答案时，我了解到“open”命令打开了一个 IO 通道进行读/写，类似于 socket 命令的作用。

链接：How can I redirect stdout into a file in tcl

问题：看起来一旦您使用close stdout 关闭标准输出，默认通道就会移动到使用open $file w 创建的内容。为什么这在套接字 IO 编程中不起作用。例如：

set sock [socket -server $port]

close stdout

puts "hello there"

错误：找不到名为“stdout”的频道

期待puts命令的输出直接进入频道

Answer 1

首先，socket -server 是它自己的特殊事物。当客户端连接时，它必然会进行回调（accept() 系统调用的底层基础结构对您隐藏）。使用服务器套接字也不能做太多其他事情。特别是，您无法在服务器套接字上读取或写入，因为没有连接另一端。

创建的连接套接字（实际上只是普通的客户端套接字，除了它们是如何制作的）正在使用操作系统分配的任何文件描述符； Tcl 不会重新分配它们。 强烈建议您不要尝试在任何标准通道上接受接受，但 POSIX 支持通过重定向将连接的套接字传递给子进程（我不知道它是否适用视窗）。你会这样做：

socket -server spawnSubprocess 12345

proc spawnSubprocess {sock host port} {
    puts "connection from ${host}:${port}"
    exec [info nameofexecutable] myscript.tcl <@$sock >@$sock 2>@$sock &
    # You might want stderr to not go back to the client...
    close $sock
}

vwait forever

请注意，子进程可以使用fconfigure 发现套接字配置。

一般来说，虽然可以重定向标准频道，但实际执行时会非常混乱。最好让他们连接到呼叫过程告诉他们去的任何地方。但是为您创建的子流程重定向绝对没问题。