为mnesia查询编写查询列表理解

时间:2010-03-11 00:34:19

标签: erlang list-comprehension mnesia

我正在尝试使用erlang + mnesia构建一个小型测试应用程序。

我有#user记录的用户表构建,如下所示:

-record(user_details, {name, password}).
-record(user, {id, details}).

然后我插入一个具有该功能的用户:

add_sample_data() ->
    Mat = #user{
      details = #user_details{
    name = "mat", password = "mat"
       }
     }, 
    user:insert_user(Mat),

查询[U#user.details || U <- mnesia:table(user)]返回非空列表。 现在我正在尝试构建一个查询,如果没有带有details.name匹配名称的记录或匹配记录(如果有),则返回包含零记录的列表。

这是我使用的方法(这个工作):

user_exists() ->
  Fun = fun() ->
    Query = qlc:q([
      U#user.details || 
      U <- mnesia:table(user)
    ]),
    qlc:e(Query)
  end,
  case mnesia:transaction(Fun) of
    {atomic, []} -> false;
    {atomic, [_User]} -> true
  end.

我从this tutorial复制了一些内容。在mnesia:select方法(幻灯片19)中使用mne_fun_query({sport, Sport})解决了类似的问题,但现在我想用qlc来解决这个问题。

我尝试了各种组合但没有任何成功(通常在编译时失败..)。

我是erlang的新手,如果你能说出哪个查询应该有效并稍微解释一下,我将不胜感激!

垫。

修改

这里有一个版本不起作用,但可能更好地解释我的问题

user_exists() ->
  Fun = fun() ->
    Query = qlc:q([
      U#user.details || 
      U <- mnesia:table(user), 
      U#user.details.name == "mat"     <<<<< This is the line with the problem
    ]),
    qlc:e(Query)
  end,
  case mnesia:transaction(Fun) of
    {atomic, []} -> false;
    {atomic, [_User]} -> true
  end.

和我的错误:

  

mathieu @ evangeneer:〜/ projects / nopair $ make
  重新编译:src / resources / user_resource
  src / resources / user_resource.erl:22:之前的语法错误:'。'   src / resources / user_resource.erl:6:function user_exists / 2 undefined make:
  *** [erl]错误1

2 个答案:

答案 0 :(得分:5)

在问题专栏:

U#user.details.name == "mat"

您正在尝试访问user_details记录,但未对其进行命名。尝试...

(U#user.details)#user_details.name == "mat"

根据我的经验,编译器本身并不知道#user.details是#user_details。

答案 1 :(得分:1)

我认为QLC代码无法编译的最常见原因是,如果您遗漏了需要包含在包含qlc查询的模块中的头文件。尝试将以下内容添加到您的模块中,看看它是否解决了问题:

-include_lib("stdlib/include/qlc.hrl").