perl erlang プロセス間で直接メッセージを送受信する - cooldaemonの備忘録

perl erlang プロセス間で直接メッセージを送受信する - cooldaemonの備忘録

単純に erl_interface を Inline::C から使っただけなんですが（w； erlang 側の準備 特別な準備は無し...概要を表示 単純に erl_interface を Inline::C から使っただけなんですが（w； erlang 側の準備 特別な準備は無し。 とりあえず、送受信するプロセスを適当に作っておく。 -module(pingpong). -compile(export_all). start() -> register(pingpong, spawn(?MODULE, loop, [])). stop() -> pingpong ! stop. loop() -> receive stop -> io:fwrite("~w:stop.~n", [self()]), exit(ok); {message, Pid, Message} -> io:fwrite("Pid:~w~nMessage:~s~n", [Pid, Message]), Pid ! {message, self(), "pong"};

• erlang
• perl