3

我正在尝试使用 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.

我从本教程中复制了一些东西。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] Error 1

4

2 回答 2

5

在问题线上：

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

您正在尝试访问该user_details记录但未命名它。尝试...

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

根据我的经验，编译器自己并不能确定#user.details 是#user_details。

于 2010-03-11T15:30:14.440 回答
1

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

-include_lib("stdlib/include/qlc.hrl").
于 2010-03-11T02:41:30.093 回答