使用过滤器处理Erlang记录

Question

我有以下代码从具有值等于Accountnumber的字段的记录列表中返回记录.

lookup(AccountNumber, [#account{no=AccountNumber} = Rec | _]) ->
    Rec;
lookup(AccountNumber, [_| T]) ->
    lookup(AccountNumber, T);
lookup(AccountNumber, []) ->
    not_found.

上面的代码工作正常,但当我尝试使用以下代码将其转换为过滤器时:

lookup(AccountNumber, DBRef) ->
    lists:filter(fun(#account{no=AccountNumber} = Rec) -> Rec end, DBRef).

我收到以下错误:

** exception error: no case clause matching #account{no = 2,balance = 0,pin = undefined,name = "Ali",
                                                 transactions = []}
   in function  lists:'-filter/2-lc$^0/1-0-'/2 (lists.erl, line 1271)

错误的原因是什么？

Answer 1

代码中存在多个问题

1.过滤器应始终为所有列表元素返回true true或false.这会导致错误.

2.当有趣块外的变量用于有趣的标题时,它们没有图案匹配,外部的变量被屏蔽.因此模式匹配失败.

您可以在下面看到修改后的代码.

  lookup(AccountNumber, DBRef)  ->
    lists:filter(
      fun(#account{no=AccNo}) when AccNo =:= AccountNumber -> true;
         (_) -> false 
      end, DBRef).