socket.tcl

来自「Linux Programming 一书的配套源码」· TCL 代码 · 共 6 行

#! /usr/bin/tclsh

set sockid [socket localhost 13]
gets $sockid date
puts "Machine says the date is: $date"