我是erlang的新手。我不明白为什么我的程序不能工作。请帮帮我。
server() ->
io:format("server ~n"),
register( doServer, Pid = spawn(node(), ?MODULE, doServer,[[]])),
io:format("server ~p ~n", [registered()]).
client() ->
io:format("client ~p ~n", [registered()]),
spawn_clients(1).
服务器注册(atom,PID)
register( doServer, Pid = spawn(node(), ?MODULE, doServer,[[]])),
erlc smplMessenger.erl ; echo " ****** RUN *******"; \
erl -noshell -sname p1 +v setcookie k1 -s smplMessenger server
****** RUN *******
server
server [code_server,erl_prim_loader,application_controller,kernel_safe_sup,
standard_error_sup,inet_db,init,erts_code_purger,user,***doServer***,
error_logger,rex,kernel_sup,erl_signal_server,global_name_server,
standard_error,global_group,file_server_2]
Start server
在print“registered()”中。我可以看到别名"doServer“
但是客户端看不到别名"doServer“及其PID
erl -noshell setcookie k1 -sname p2 -s smplMessenger client
Erlang/OTP 20 [erts-9.3] [source] [smp:2:2] [ds:2:2:10] [async-threads:10] [hipe] [kernel-poll:false]
client [code_server,erl_prim_loader,application_controller,erl_epmd,auth,
standard_error_sup,net_kernel,inet_db,init,erts_code_purger,user,
error_logger,rex,net_sup,kernel_sup,user_drv,kernel_safe_sup,
erl_signal_server,global_name_server,standard_error,global_group,
file_server_2]
[Client <0.5.0>] node 1 spawned
All client spawned
[Client <0.67.0> 1] Start client with serv pid undefined. Im alive
=ERROR REPORT==== 31-May-2018::21:52:07 ===
Error in process <0.67.0> on node p2@station with exit value:
{badarg,[{smplMessenger,doClient,1,[{file,"smplMessenger.erl"},{line,121}]}]}
第121行是
118: doClient(Name) ->
119: io:format("[Client ~p ~p] Start client with serv pid ~p. Im alive ~n",
120: [self(), Name, whereis(doServer)]),
121: doServer ! {isAlive, self(), Name},
121:
122: clientRecv(Name),
123:
124: io:format("[Client ~p ~p] FINISH CLIENT ~n",
125: [self(), Name]).
我从一台计算机上运行两个节点(两个节点中的Cooke是相等的)。
epmd请参阅客户端和服务器进程。
节点1和节点2都可以ping通。
netstat -tuwpln
Proto Recv-Q Send-Q Local Address Foreign Address State PID/Program name
tcp 0 0 0.0.0.0:4369 0.0.0.0:* LISTEN 1408/epmd
tcp 0 0 0.0.0.0:36499 0.0.0.0:* LISTEN 3008/beam.smp
tcp 0 0 127.0.0.53:53 0.0.0.0:* LISTEN -
tcp 0 0 127.0.0.1:631 0.0.0.0:* LISTEN -
tcp 0 0 0.0.0.0:33865 0.0.0.0:* LISTEN 3047/beam.smp
tcp6 0 0 :::4369 :::* LISTEN 1408/epmd
tcp7 0 0 ::1:631 :::* LISTEN -
我哪里错了?帮帮我。
我将注册更改为全局,但是客户端进程看不到服务器(doServer)的任何内容。
server() ->
io:format("server ~n"),
global:register_name( doServer, spawn(node(), ?MODULE, doServer,[[]])),
io:format("server ~p ~n", [global:registered_names()]).
client() ->
io:format("[Client ~p ] ~p ~n",
[self(), global:whereis_name(doServer)]),
io:format("client ~p ~n", [global:registered_names()]).
erlc smplMessenger.erl ; echo " ****** RUN *******"; erl -noshell -sname p1 -v -setcookie k1 -s smplMessenger server
****** RUN *******
server
Start server
server [doServer]
erlc smplMessenger.erl ; echo " ****** RUN *******"; erl -noshell -sname p2 -v -setcookie k1 -s smplMessenger client
****** RUN *******
[Client <0.5.0> ] undefined
client []
发布于 2018-06-02 04:40:51
函数registered()
(它实际上是erlang:registered/0
MFA。MFA代表模块、函数、参数。/0
是参数,表示它接受0个参数)显示使用erlang:register/2
注册的注册进程和端口。erlang:register/2
在本地注册进程或端口的名称,然后在每个节点上工作,并且只针对该节点工作。这意味着节点p1
拥有自己的已注册进程,并且不知道其他节点的已注册进程。此外,节点p2
不知道其他节点的注册进程。
我推荐使用模块为包含许多Erlang节点的系统中的进程注册名称。
在上面的例子中,你需要函数global:register_name/2
和global:registered_names/0
。此外,在这些操作之前,您应该将第二个启动的节点连接到第一个节点。
https://stackoverflow.com/questions/50646347
复制相似问题