Posted to tcl by Zarutian at Fri May 08 13:02:22 GMT 2009view raw
- package require Tcl 8.4
- proc connect {host port} {
- variable sock
- catch { close $sock }
- set sock [socket $host $port]
- fconfigure $sock -encoding binary -translation binary -blocking no
- fileevent $sock readable [list getData $sock]
- puts "Connected to $host at $port via $sock"
- }
- proc getData {sock} {
- if {[eof $sock]} {
- puts "connection $sock closed by peer"
- close $sock
- return
- }
- puts "[set sock]: [read $sock]"
- }
- proc send {sock data} {
- catch {
- puts -nonewline $sock $data
- flush $sock
- }
- }