有时从长时间运行的脚本或远程计算机上运行的脚本收集消息或数据到中央位置很有用。附件是证明这一点的四个文件：
- 从其他机器或进程收集消息并将它们放入数据表中的“服务器”。 在独立于任何其他脚本或表的 JMP 实例中运行它。
- 将消息发送到服务器的“客户端”JSL 脚本，将其嵌入脚本中。
- 向服务器发送消息的“客户端”R 脚本
- 向服务器发送消息的“客户端”python 脚本
这是一个外观示例，右侧的客户端可以位于不同的计算机上，或者 JMP 的不同副本位于同一台计算机上。
重要的代码如下所示：
服务器
//Create a socket
con = Socket();
//Use a specific address and port on this computer
con << Bind( "10.0.0.2", "12345" );
//Tell this socket to be ready for other sockets to connect to it
con << Listen();
//Verify that the connection is active
con << getsockname;
//When something connects to this socket, call a function to handle
//the connection. Accept connections for the next 5 minutes.
con << Accept(callbackfn, 300);
//Now messages can be sent to this connection.
//When all done, close the connection
con << close();
回调函数看起来像这样（实际函数更复杂，见下文）：
//Simplified function to handle communication with the client, do not use as is
callbackfn = function( {x},
If( x[2] == "ok",
//Get data
r = x[4] << recv( 1000 );
//While data was received
While( r[2] == "ok",
//Write it to the log
write( Blob to Char( r[3] ) );
//try to get more data
r = x[4] << recv( 1000 );
);
);
//close the connection to the client
x[4] << Close;
);
这是一个稍微复杂一点的处理阻塞的回调函数（常见）：
查看更多...
这是一个完整的服务器代码示例：
查看更多...
JSL客户端
Names default to here( 1 );
//function to send a message to a waiting connection
SendMessage = Function( {message},
//Create a socket
con = Socket();
//Connect to a socket that is already bound to, listening on, and accepting
//connections on a port. This is the server IP address, not the client.
con << Connect( "10.0.0.2", "12345" );
//Send data
r = con << Send( Char To Blob( message ) );
///check that the data was sent
if(r[2] == "ok", result = "sent", result = "fail" );
//close the connection
con << Close;
return( result );
);
//send messages
Write( SendMessage( "Hi" ) );
R客户端
sendmessage = function( message ) {
con <- socketConnection(host="10.0.0.2", port = 12345, blocking=FALSE,
server=FALSE, open="r+")
write_resp <- write(message, con)
close(con)
}
sendmessage("Hi from R")
Python客户端
import socket
client_socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
client_socket.connect(("10.0.0.2", 12345))
client_socket.send("Hello from Python")
client_socket.close()
break;
Powershell客户端
$socket = new-object System.Net.Sockets.TcpClient( "10.0.0.2", 12345)
$stream = $socket.GetStream()
$writer = new-object System.IO.StreamWriter $stream
$writer.WriteLine( "Hello from Powershell`n" )
$writer.Flush()
$writer.Close()
对于任何正在寻找示例代码的人来说，这更像是对套接字通信的介绍，而不是功能性日志记录机制，但我欢迎您提出意见和建议！
