l修改服务器时间,L脚本语言开发的时间获取服务器和客户端

#scp

#这是一个TCP时间获取服务器的例子

#它不断监听一个网络连接

#如果有网络连接到来

#就通过新建立的网络连接发送当前时间

定义:字符串,string2,""

定义:地址,addr2,127.0.0.1,13

定义:整数,字节数,0

定义:网络连接,conn2,TCP

定义:函数,routine

开始:函数,routine

监听:conn2,addr2

定义:时间,time1

读取:当前时间,time1

转换:string2,time1

取大小:字符串,string2,字节数

如果:字节数>0,显示:string2

如果:字节数>0,发送:conn2,string2

结束:函数,routine

当:1,调用:函数,routine

#-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

#scp

#这是一个通过TCP协议向服务器请求当前时间的例子

#它先发起对一个网络上的服务器的连接

#如果连接建立,就接收服务器发来的时间并显示

#这个过程重复100次

定义:字符串,string2,

定义:地址,addr1,127.0.0.1,13

定义:整数,字节数,0

定义:整数, count,100

定义:网络连接,conn1,TCP

连接:conn1,addr1

定义:函数,function1

开始:函数,function1

接收:conn1,string2

取大小:字符串,string2,字节数

如果:字节数>0,显示:string2

计算:算式,exp1,count=count-1

睡眠:100

结束:函数,function1

当:count>0,调用:函数,function1

原文：http://blog.csdn.net/itmes/article/details/45576409