我刚刚开始进行套接字编程。我想将客户端作为TCL，将服务器作为Python。我尝试了以下几个脚本，但无法取得任何进展。
这是我的脚本：
server.py：
import socket
s=socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.bind((socket.gethostname(), 45000))
s.listen(5)
while True:
clt, adr=s.accept()
print(adr)
clt.send(bytes("Socket programming in Python"))
client.tcl：
set host "127.0.0.1"
set port 45000
set mysock [socket -myaddr $host -myport $port $host $port]
fconfigure $mysock -buffering none
gets $mysock line
close $mysock
puts "Message is $line"
但是，上面的TCL脚本只是挂起，并没有超出gets命令的范围。
这是等效的Python客户端脚本，可以运行：
client.py：
import socket
s=socket.socket(socket.AF_INET, socket.SOCK_STREAM)
print(s)
s.connect((socket.gethostname(), 45000))
msg=s.recv(1024)
print(msg.decode("utf-8"))
现在基于一些建议，为了模仿TCL中的上述python客户端脚本，我尝试了以下操作：
client_modified.tcl：
set s [socket [info hostname] 45000]
puts $s
fconfigure $s -translation binary
puts [encoding convertfrom utf-8 [read $s 28]]
我仍然无法继续：“ socket localhost 45000”。
它给了我错误：
> tclsh client.tcl
couldn't open socket: connection refused
while executing
"socket [info hostname] 45000"
invoked from within
"set s [socket [info hostname] 45000]"
任何人都可以在这里指导。
鉴于：
import socket
s=socket.socket(socket.AF_INET, socket.SOCK_STREAM)
print(s)
s.connect((socket.gethostname(), 45000))
msg=s.recv(1024)
print(msg.decode("utf-8"))
是一个正常工作的Python客户端，在Tcl中的等效项是：
set s [socket [info hostname] 45000]
puts $s
fconfigure $s -translation binary
puts [encoding convertfrom utf-8 [read $s 28]]; # You're writing 28 bytes, not 1024
但是我更倾向于写：
set s [socket localhost 45000]; # For complex reasons, [info hostname] takes a long time on macOS
fconfigure $s -encoding utf-8
puts [read $s 28]
请注意，如果通过套接字你写的文字数据，你真的应该还写换行符作为一个边界。在Tcl方面，这将使您使用gets而不是read;。如果没有换行符，gets则在默认阻止模式下，Tcl将无限期地等待它启动。（对于面向二进制的协议，如果这是变量，则可能首先发送数据长度。）
更复杂的版本使用非阻塞模式。除非您真的确定自己在做什么，否则非阻塞模式应专门用于fileevent回调：
set s [socket localhost 45000]
fconfigure $s -encoding utf-8 -blocking 0
fileevent $s readable {apply {{} {
global s done
puts [read $s 1024]
# Remember to close that socket at EOF
if {[eof $s]} {
close $s
set done "ok"; # Terminates the event loop running this
}
}}}
vwait done; # Launch an event loop for processing the socket
如果您将消息写回到服务器，则可能需要进行设置，-buffering none以使您不必大惊小怪flush。而且，如果您要进行复杂的对话，则可能需要使用协程进行管理；它们具有用于复杂编程的功能（并且存在一些支持库来提供帮助），这些功能使执行复杂协议变得非常简单。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句