socket.tcl

来自「Linux程序设计(原书第2版)的源码」· TCL 代码 · 共 6 行

#! /usr/bin/tclsh

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