Erlang 变量模式匹配

Question

我在一个简单的聊天应用程序中有一个service_echo 函数，它使用 SockJS 来实现多用户私人聊天。我为在线用户列表创建了一个 ETS 表。通过存储 SockJS 会话，我想在收到来自不同连接的消息时向该连接发送消息。

这是我的service_echo 代码。

service_echo(Conn, {recv, Data}, state) ->
    Obj = mochijson2:decode(Data),
    {struct, JsonData} = Obj,
    Name = proplists:get_value(<<"name">>, JsonData),
    A = ets:lookup(username,Name),
    io:format("~p",[Conn]),
    if
      length(A) =:= 0 ->
          ets:insert(username,{Name,Conn});
      true ->
          [{AA,BB}] = ets:lookup(username,Name),

          BB:send(Data)
    end,

     io:format("hello");

即使 Conn 和 BB 相同，Conn:send(data) 仍然会向浏览器发送有效数据，而 BB:send(Data) 什么也不做，甚至不显示错误。 由于我是 Erlang 新手，如有任何无意的错误，请见谅。

Answer 1

首先，我建议您不要使用length(A) =:= 0 来测试列表A 是否为空；如果A 是一个很长的列表，计算它的元素会花费你很多，尽管结果实际上不会被使用。改用A =:= []，更简单更好。

我不明白你为什么说Conn 和BB 是一样的。这与您在此处发布的代码不同。如果Name 不在表中，则插入一个条目{Name, Conn}。否则，如果Name存在于表中并且与单个对象BB相关，则假设此BB是一个模块，并调用其中定义的send函数。

这可能是你读错了 if 的语义 --- 如果是这种情况，不要让 true 守卫混淆你，这就是 if-then-else 的写法二郎。也许你想拥有类似的东西：

    ...
    A = ets:lookup(username,Name),
    if
      A =:= [] ->
        ets:insert(username,{Name,Conn})
    end,
    [{_,BB}] = ets:lookup(username,Name),
    BB:send(Data)
    ...

甚至更好：

    ...
    A = ets:lookup(T,Name),
    if
      A =:= [] ->
        ets:insert(T,{Name,Conn}),
        BB = Conn;
      true ->
        [{_,BB}] = A
    end,
    BB:send(Data)
    ...

另一方面，我可能误解了您要执行的操作。如果是这种情况，请澄清。