examples/udp.client

   1 # Example of sending from an unconnected socket
   2
   3 set s [socket dgram]
   4
   5 foreach i [range 1 5] {
   6         # Specify the address and port with sendto
   7         $s sendto "$i + $i + 10" 127.0.0.1:20000
   8
   9         # Receive the response - max length of 100
  10         puts [$s recvfrom 100]
  11 }
  12
  13 $s close
  14
  15 # Now sending via a connected udp socket
  16
  17 set s [socket dgram 127.0.0.1:20000]
  18 $s buffering none
  19
  20 foreach i [range 5 10] {
  21         # Socket is connected, so can just use puts here
  22         # No need to flush because we set 'buffering none' above.
  23         $s puts -nonewline "$i * $i"
  24         #$s flush
  25
  26         # Receive the response - max length of 100
  27         puts [$s recvfrom 100]
  28 }