Question

我有一个像这样的文本文件：

{fruit, [apple,banana,kiwi]}.
{car, [estate,hatchback]}.
{tree, [ebony,pine,ask,birch]}.
{planet, [earth]}.

如何在Erlang中将其读入地图或任何其他数据结构（以进一步迭代每个键及其各自的值）并最终打印地图？

Answer 1

$ cat > things.txt
{fruit, [apple,banana,kiwi]}.
{car, [estate,hatchback]}.
{tree, [ebony,pine,ask,birch]}.
{planet, [earth]}.
$ erl
Erlang/OTP 20 [erts-9.3] [source] [64-bit] [smp:4:4] [ds:4:4:10] [async-threads:10] [hipe] [kernel-poll:false]

Eshell V9.3  (abort with ^G)
1> {ok, L} = file:consult("things.txt").
{ok,[{fruit,[apple,banana,kiwi]},
     {car,[estate,hatchback]},
     {tree,[ebony,pine,ask,birch]},
     {planet,[earth]}]}
2> maps:from_list(L).
#{car => [estate,hatchback],
  fruit => [apple,banana,kiwi],
  planet => [earth],
  tree => [ebony,pine,ask,birch]}

Answer 2

这个适用于我

-module(test). 
-export([start/0, scan_string/1]). 

start() -> 
   {ok, File} = file:open("Newfile.txt",[read]),
   {ok, List} = file:read(File,1024 * 1024),
   KeyVal = scan_string(List),

   F = fun({K,V}, Acc) -> maps:put(K, V, Acc) end,
   lists:foldl(F, #{}, KeyVal).

scan_string(TermString) ->
    {_, Strings} = lists:foldl(fun break_terms/2, {"", []}, TermString),
    Tokens = [T || {ok, T, _} <- lists:map(fun erl_scan:string/1, Strings)],
    AbsForms = [A || {ok, A} <- lists:map(fun erl_parse:parse_exprs/1, Tokens)],
    [V || {value, V, _} <- lists:map(fun eval_terms/1, AbsForms)].

break_terms($., {String, Lines}) ->
    Line = lists:reverse([$. | String]),
    {"", [Line | Lines]};
break_terms(Char, {String, Lines}) ->
    {[Char | String], Lines}.

eval_terms(Abstract) ->
    erl_eval:exprs(Abstract, erl_eval:new_bindings()).

Newfile.txt =

{fruit, [apple,banana,kiwi]}.
{car, [estate,hatchback]}.
{tree, [ebony,pine,ask,birch]}.
{planet, [earth]}.

Shell =

Eshell V9.3.1  (abort with ^G)
1> c(test).
{ok,test}
2> test:start().
#{car => [estate,hatchback],
  fruit => [apple,banana,kiwi],
  tree => [ebony,pine,ask,birch]}
3>

如何在Erlang中将文本文件读入地图？

2 个答案: