examples/tcp.client

   1 # Example of sending via a connected tcp socket
   2
   3 set s [socket stream 127.0.0.1:20000]
   4
   5 foreach i [range 1 20] {
   6         $s puts "1 << $i"
   7
   8         puts [$s gets]
   9 }