1 # Example of sending from an unconnected socket
3 # Now sending via a connected udp socket
5 set s [socket unix.dgram unix.sock]
8 puts "dgram socket [$s sockname] connected to [$s peername]"
10 foreach i [range 5 10] {
11 # Socket is connected, so can just use puts here
12 # No need to flush because we set 'buffering none' above.
13 $s puts -nonewline "$i * $i"
16 # Receive the response - max length of 100
17 puts [$s recvfrom 100]