Tcl의 소켓 (Socket)

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
   }
}