erlang - Erlang：从数据列表到进程列表的并行消息传递

Question

如何实现从列表 A 中的所有值到进程列表 B 的同时传递？列表 A 和 B 的大小相同。假设 A = [1,2,3] 和 B = [<0.42.0>,<0.43.0>,<0.44.0>]。我想在并行执行中将值 1 传递给处理 <0.42.0> 等等。

这是我到目前为止提出的：

pass_values([P|ValueListA], [H|ProcessListB]) ->
    H ! {foo, P},
    pass_values(ValueListA, ProcessListB).

Answer 1

您正在寻找的是一个scatter实用程序，它采用一组元素并将这些元素分配给一组进程。

-module(lab).

-compile(export_all).

go() ->
    ProcessList =
        lists:map(fun(_) ->
                          spawn(?MODULE, echo, [])
                  end,
                  lists:seq(1, 6)),
    DataList = ["E", "r", "l", "a", "n", "g"],
    scatter(DataList, ProcessList).

scatter(DataList, ProcessList) ->
    lists:foreach(fun({Data, Process}) ->
                          Process ! Data
                  end,
                  lists:zip(DataList, ProcessList)).

echo() ->
    receive
        Msg ->
            io:format("~p echos ~p~n", [self(), Msg]),
            echo()
    end.

试试看：

1> c(lab).
{ok,lab}
2> lab:go().
<0.40.0> echos "E"
<0.41.0> echos "r"
<0.42.0> echos "l"
<0.43.0> echos "a"
<0.44.0> echos "n"
<0.45.0> echos "g"
ok