Cliente de socket escrito en lenguaje de script tcl

El siguiente es client.tcl

proc Socket_Client {tiempo de espera del puerto del host} {

global conectado

después de $timeout {set conectado timeout }

set sock [socket -async $host $port]

fileevent $sock w {set conectado ok}

vwait conectado

fileevent $sock w {}

if {$connected == "timeout"} {

return -code error timeout

} else {

devolver $sock

}

}

Socket_Client "10.33.132.2" 2540 100