net_adm:ping/1

对一个节点建立一个连接

用法：

ping(Node) -> pong | pang

内部实现：

%% Check whether a node is up or down
%%  side effect: set up a connection to Node if there not yet is one.

-spec ping(Node) -> pong | pang when
      Node :: atom().

ping(Node) when is_atom(Node) ->
    case catch gen:call({net_kernel, Node},
			'$gen_call',
			{is_auth, node()},
			infinity) of
	{ok, yes} -> pong;
	_ ->
	    erlang:disconnect_node(Node),
	    pang
    end.

尝试对节点 Node 建立一个连接，如果成功则返回 pong，否则返回 pang。

net_adm:ping('genfsm@127.0.0.1').