erlang - 使用换行符将列表数据写入文件

Question

我正在将一个文本文件读入一个列表，内容是：

blah
blah
blah

现在我正在尝试将列表数据写入文件，使其看起来与上面相同，我使用的是：

filewrite(File,L) ->
    {ok, S} = file:open(File, write),
    lists:foreach( fun(X) -> io:format(S, "~n",[X]) end, L),
    file:close(S).

但这会将所有内容打印在 1 行上，带有括号和语音标记...

Answer 1

尝试这个：

filewrite(File, []) ->
    ok;
filewrite(File, List) ->
    file:write_file(File, lists:foldl(fun(E, A) ->
        A ++ "\n" ++ E
    end, hd(List), tl(List))).