장기 실행 스크립트 또는 원격 컴퓨터에서 실행되는 스크립트에서 중앙 위치의 메시지 또는 데이터를 수집하는 것이 때때로 유용합니다.이를 설명하는 네 개의 파일이 첨부되어 있습니다.
- 다른 기계나 프로세스에서 메시지를 수집하여 데이터 테이블에 저장하는 '서버'. 다른 스크립트나 테이블과 별도의 JMP 인스턴스에서 실행합니다.
- 서버에 메시지를 보내는 '클라이언트' JSL 스크립트, 이를 스크립트에 포함합니다.
- 서버에 메시지를 보내는 '클라이언트' R 스크립트
- 서버에 메시지를 보내는 '클라이언트' 파이썬 스크립트
다음은 이것이 어떻게 보이는지에 대한 예입니다. 오른쪽의 클라이언트는 다른 컴퓨터에 있을 수도 있고 동일한 컴퓨터에 있는 별도의 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")
파이썬 클라이언트
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;
파워쉘 클라이언트
$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()
이것은 기능적인 로깅 메커니즘보다 예제 코드를 찾는 사람을 위한 소켓 통신에 대한 소개에 가깝지만 귀하의 의견과 제안을 환영합니다!
