home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 17_4.tcl < prev    next >
Text File  |  2003-04-15  |  228b  |  17 lines
  1. #
  2. # Example 17-4
  3. # A client of the echo service.
  4. #
  5.  
  6. proc Echo_Client {host port} {
  7.     set s [socket $host $port]
  8.     fconfigure $s -buffering line
  9.     return $s
  10. }
  11. set s [Echo_Client localhost 2540]
  12. puts $s "Hello!"
  13. gets $s
  14. #=> Hello!
  15.  
  16.  
  17.