有時，從長時間運行的腳本或遠端電腦上執行的腳本收集集中位置的訊息或資料很有用。隨附的四個文件證明了這一點：
- 一個“伺服器”，從其他機器或進程收集訊息並將它們放入資料表中。 在與任何其他腳本或表格不同的 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()
這更多的是為任何尋找示例代碼的人介紹套接字通信，而不是功能性日誌記錄機制，但我歡迎您的評論和建議！
