input - 如何在 "not main"进程中从控制台读取

Question

如何在新进程中读取标准输入？我只能在主进程中放置行并打印它。我应该传递给 get_line 控制台设备或类似的东西还是不可能？

我的代码:

-module(inputTest).
-compile([export_all]).

run() ->
  Message = io:get_line("[New process] Put sth: "),
  io:format("[New process] data: ~p~n", [Message]).


main() ->
  Message = io:get_line("[Main] Put sth: "),
  io:format("[Main] data: ~p~n", [Message]),
  spawn(?MODULE, run, []).

Answer 1

问题是您的 main/0 进程生成 run/0 然后立即退出。您应该让 main/0 等待，直到 run/0 完成。以下是您可以执行此操作的方法:

-module(inputTest).
-compile([export_all]).

run(Parent) ->
    Message = io:get_line("[New process] Put sth: "),
    io:format("[New process] data: ~p~n", [Message]),
    Parent ! {self(), ok}.

main() ->
    Message = io:get_line("[Main] Put sth: "),
    io:format("[Main] data: ~p~n", [Message]),
    Pid = spawn(?MODULE, run, [self()]),
    receive
        {Pid, _} ->
            ok
    end.

生成 run/1 后 - 请注意，我们更改了它以将进程 ID 传递给它 - 我们等待接收来自它的消息。在 run/1 中，一旦我们打印到输出，我们就会向父级发送一条消息，让它知道我们已经完成了。在 erl shell 中运行它会产生以下结果:

1> inputTest:main().
[Main] Put sth: main
[Main] data: "main\n"
[New process] Put sth: run/1
[New process] data: "run/1\n"
ok