从 mnesia 获取字段

Question

我有一个 mnesia 表 users ，其中包含用户和密码字段。

我的表中的数据：

[{users, <<"user_name">>, <<"password">>}].

我需要通过用户名获取密码。我做：

mnesia:dirty_read({users, <<"user_name">>}).

但它返回[]。

如何通过用户名获取密码？

Answer 1

您没有指定正在使用的记录语法，但它看起来像

-record(users, {用户名, 密码})。

...或类似的东西。那么，假设，当您创建表时，您是否执行了任何特殊操作来设置 id？在此示例中，“用户名”（用户记录中的第一个条目）默认应为 id，除非您做了特殊的操作。

如果问题仍然存在，请考虑使用 mnesia:match_object/1 或 /3。您在模式/记录语法中指定必须匹配的部分（在本例中为用户名），并使用 ='' 来匹配您不知道或不关心的任何内容（在本例中为，这就是密码部分）。

我希望这有帮助！

Answer 2

您可以执行如下操作：

YourPasswd = mnesia:ets(fun()-> mnesia:dirty_read({users,UserId}) end),

    case YourPasswd of
            [] -> {error, 'No User Found'};
            [{users,_UserID,Passwd}] ->
                {success, Passwd}
    end.

希望数据能正确写入 mnesia :)

Answer 3

看看这个函数：

-define(TABLE_NAME,users).

get_password_by_username(Username)-> 
     F = fun(U)-> mnesia:read({?TABLE_NAME,U}) end,
     mnesia:activity(transaction,F,[Username],mnesia_frag).

这会给你结果。 mnesia:activity/4 的好处是，无论表是否碎片化，答案都可以。
祝你好运

Answer 4

我理解您希望尽快检查您的密码，但是您的项目是否处于需要 优化这个？

我的一个项目中有一个身份验证模块，并且我有与您类似的目标。由于我还没有机会进行优化，因此我正在使用 mnsesia 事务以及用户名和密码列表。

这是我的身份验证模块的一部分。

-module(auth).

-export([init/1, add_user/2, start_session/2]).
-record(auth_user, {username, password}).

init(Nodes) ->
    mnesia:create_table(auth_user,
        [{disc_copies, Nodes},
        {attributes, record_info(fields, auth_user)}]).

add_user(Username, Password) ->
    T = fun() -> 
    mnesia:write(#auth_user {
                username = Username,
                password = Password})
    end,
    mnesia:transaction(T).

start_session(Username, Password) ->
    T = fun() ->
        mnesia:read(auth_user, Username)
    end,
    {atomic, Ret} = mnesia:transaction(T),
    case Ret of
    [U] ->
        if (U#auth_user.password == Password) ->
            true;
        true ->
            false
        end;
    _Else ->
        false
    end.

编译并启动 erlang shell 后。

Eshell V5.8.3  (abort with ^G)
1> mnesia:create_schema([node()]).
ok
3> mnesia:start().
ok
4> auth:init([node()]).
{atomic,ok}
5> auth:add_user("rodericktaylor", "password").
{atomic,ok}
6> true = auth:start_session("rodericktaylor", "password").
true
7>

为了看看我是否遇到与您相同的问题，我切换到二进制值并执行脏读。

start_session_dirty(Username, Password) ->
    case mnesia:dirty_read(auth_user, Username) of
    [U] ->
        if (U#auth_user.password == Password) ->
            true;
        true ->
            false
        end;
    _Else ->
        false
    end.

erl shell 中的以下命令表明它按照您期望的方式工作。

12> auth:add_user(<<"rodericktaylor">>, <<"binarypassword">>).            
{atomic,ok}
14> true = auth:start_session_dirty(<<"rodericktaylor">>, <<"binarypassword">>).
true
15>

我希望我有所帮助。