如何在Erlang中读取文件的内容？

Question

我知道你可以做这样的事情：

readlines(FileName) ->
    {ok, Device} = file:open(FileName, [read]),
    get_all_lines(Device, []).

get_all_lines(Device, Accum) ->
    case io:get_line(Device, "") of
        eof  -> file:close(Device), Accum;
        Line -> get_all_lines(Device, Accum ++ [Line])
    end.

是否有一个单衬垫 BIF 也可以做到这一点？

Answer 1

file:read_file/1 就是您要查找的内容。仅出于教学目的，Accum ++ [Line] 是不好的做法。问题是 ++ 的左参数被复制，而右参数按原样使用。在您的代码中，您将在每次迭代中复制越来越大的部分。解决方案是 lists:reverse(Line,Accum) ，然后在 eof 分支中返回 lists:reverse(Accum) （或者 [ Line|Accum] 和 lists:append(lists:reverse(Accum)) 在 eof 或使用具有更好附加操作的二进制文件或...） 。另一种方法是不使用尾递归函数，根据 神话，它并不像第一次看起来那么糟糕：尾递归函数比递归函数快得多。

所以你的 readlines/1 函数应该看起来像

readlines(FileName) ->
    {ok, Device} = file:open(FileName, [read]),
    try get_all_lines(Device)
      after file:close(Device)
    end.

get_all_lines(Device) ->
    case io:get_line(Device, "") of
        eof  -> [];
        Line -> Line ++ get_all_lines(Device)
    end.

Answer 2

您可以利用 file:read_file/1 和 binary:split/3 分两步完成这项工作：

readlines(FileName) ->
    {ok, Data} = file:read_file(FileName),
    binary:split(Data, [<<"\n">>], [global]).