访问记录中的字段时出现语法错误

element/2 the first element is a record name tuple_size

Fields = lists:zip(record_info(fields, rec),
                   lists:seq(2, record_info(size, rec)))

get_record_value(Name, Record, Fields) ->
    case proplists:get_value(Name, Fields) of
        undefined ->
            undefined;
        N when is_integer(N) ->
            element(N, Record)
    end.

exprecs

proplists

-module(test).
-export([start/0]).
-record(test, {value1, value2, value3}).

start() ->
    R = #test{value1=1, value2=2, value3=3},
    Fields = record_info(fields, test),
    Values = tl(tuple_to_list(R)),
    lists:zip(Fields, Values).

> c("test").
> Proplist = test:start().
[{value1,1},{value2,2},{value3,3}]

value2

> proplists:get_value(value2, Proplist).
2