# クライアント
set ip 127.0.0.1
set port 1234
set fd [socket -myaddr $ip $ip $port]
fconfigure $fd -buffering line
button .b -text Send -command {
puts $fd "Hello!"
}
pack .b
|
# サーバー
set ip 127.0.0.1
set port 1234
pack [entry .e -textvariable var]
socket -server setup -myaddr $ip $port
proc setup {fd ip port} {
fileevent $fd readable "show $fd $ip $port"
fconfigure $fd -blocking 0
}
proc show {fd ip port} {
global var
if [eof $fd] {
close $fd
} else {
gets $fd line
set var $line
}
}
|
[参考] Windowsでは、DDEでのメッセージ交換もできます。