Erlang 클라이언트 프로세스 등록

제 목표는 클라이언트 프로세스를 먼저 시작하는 것입니다. 그런 다음 지정된 서버에 등록 할 수 있습니다. 두 단계를 완료했습니다. 내가 처음과 같이 내 클라이언트/서버 프로세스를 만들Erlang 클라이언트 프로세스 등록

loop(Userlist, Chatlist) -> 
receive 
{From, online, Username} -> 
     List = tryGoOnline(From, Username, Userlist), 
     loop(List, Chatlist); 
end.

: 이것은 다음 내 서버 프로세스를 돌아갑니다

client(Server, Username) -> 
receive 
    {online, Server, Username} -> 
     {chat, Server} ! {self(), online, Username}, 
     reply(); 
end, 
client(Server, Username).

: 간다

startServer() -> register(chat, spawn(chat, loop, [[], []])). 
startClient() -> register(clientPid, spawn(chat, client, [undefined, undefined])).

클라이언트 루프를 실행

그런 다음 사용자가 목록에 같은 이름이 등록되어 있는지 여부에 따라 온라인 상태로 전환하려고합니다.

tryGoOnline(From, Username, Userlist) -> 
case lists:keymember(Username, 2, Userlist) of 
    true -> 
     From ! {chat, existing, close, "This username is in use. Please choose a different name."}, 
     Userlist; 
    false -> 
     From ! {chat, "You successfully logged online!"}, 
     [{From, Username} | Userlist] 
end.

이

은 내 goOnline 함수에서 모든 호출됩니다에 fwrite ("~ P ~ N", [clientPid])를 goOnline 기능과 그것을 유지 : 나는 IO의 디버그를했다

goOnline(Username, Server) -> 
case whereis(clientPid) of 
    undefined -> "You must register the client first!"; 
    _ -> clientPid ! {online, Server, Username} **///PROBLEM HERE!!** 
end.

'clientPid'라는 단어로 돌아오고 ... PID ID가 아닙니다. 이로 인해 클라이언트 프로세스가 메시지를받지 못하게되어 코드가 중지됩니다. startClient() 호출에 문제가있을 것입니다. 나는 서버와 사용자 이름이 생성시에 알려지지 않았기 때문에 클라이언트 프로세스에 무엇을 전달해야할지 모르겠습니다. 어떤 도움이라도 굉장합니다. 이 모든 것이 의미가 있기를 바랍니다. 너무

내 회신() 함수 :

reply() -> 
receive 
    {chat, existing, close, Error} -> 
     io:format("~p~n", [Error]), 
     exit(existing); 
    {chat, close, Error} -> 
     io:format("~p~n", [Error]); 
    {chat, NoError} -> 
     io:format("~p~n", [NoError]) 
end.

출처

2014-05-09 Nolemonpledge