1.socket 服务端开启
格式:socket –server command ?options? port
-server  :表明开启的是服务器端
port:端口
command:当有客户端来连接的时候,执行这个过程,这个过程有三个参数
 channel:给新客户端的通道
 address:提供给客户端连接的 ip 地址
 port:端口

 

2.客户端连接服务器端
格式:socket ?options? host port
host port  :客户端连接的服务器 ip和端口

3.fileevent定义了一个句柄,满足条件时执行
格式:fileevent channelId readable? script?
fileevent channelId writeable? script?
readable:当通道 channelId 有数据准备好被读了,执行脚本 script
writeable:当通道 channelId 有数据准备好接收数据了,执行脚本 script
 
4.vwait 命令使执行暂停,直到 varName 被赋值,即便赋值前后相同
格式:vwait varName


例子一:简单的客户端连接服务端
-----------------------------------------------------------------------------------------
server:
proc accept {chan addr port} {
puts "$addr:$port says [gets $chan]"
puts $chan goodbye
close $chan
}
socket -server accept 12345
vwait forever

client:
set chan [socket 127.0.0.1 12345]
puts $chan hello
flush $chan
puts "server says [gets $chan]"
close $chan

运行结果:
-servr
127.0.0.1:3148 says hello
-client
server says goodbye

 

例子二:显示服务端时间
格式:clock seconds
功能:返回从计算机纪元开始的秒数,不同操作系统开始时间可能不同,所以这个值通常用来作为命
令 clock format 的输入
clock format [clock seconds] 返回当前时间
clock format [clock seconds] -format %H:%M:%S  以“时:分:秒”形式返回当前时间
-----------------------------------------------------------------------------------------
server:
proc Server {channel clientaddr clientport} {
puts "Connetion from $clientaddr $clientport registered"
puts $channel [clock format [clock seconds]]
close $channel
}
socket -server Server 9911
vwait forever

client:
set chan [socket 127.0.0.1 9911]
gets $chan line
close $chan
puts "The time on $chan is $line"

运行结果:
-server
Connetion from 127.0.0.1 3163 registered
-client
The time on sock268 is Tue Dec 15 09:07:00 +0800 2009