examples/udp2.client

   1 # Example of sending via a connected udp socket
   2
   3 set s [socket dgram 127.0.0.1:20000]
   4
   5 foreach i [range 1 20] {
   6         # Socket is connected, so can just use puts here
   7         # But remember to flush to ensure that each message is separate
   8         $s puts -nonewline "$i * $i"
   9         $s flush
  10
  11         # Receive the response - max length of 100
  12         puts [$s recvfrom 100]
  13 }