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