cómo leer el contenido de un archivo En Erlang?

Question

Sé que usted puede hacer algo como esto:

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. 

: ¿Hay una BIF revestimiento que puede hacer esto también?

Answer 1

file:read_file/1 es lo que busca. Solo con fines didácticos, Accum ++ [Line] es una mala práctica. El problema es que el argumento de la izquierda de ++ se copia y el derecho se usa tal cual. En tu código, copiarás partes cada vez más grandes en cada iteración. La solución es lists:reverse(Line,Accum) y que devuelve lists:reverse(Accum) en su rama eof (O [Line|Accum] y en el eof o utilice el binario que tenga una mejor operación de adición o ...). Otra forma de cola no está utilizando la función recursiva que no es tan malo como parece a primera hora de acuerdo a Myth: Tail-recursive functions are MUCH faster than recursive functions.

lo tanto, su función readlines/1 debe ser similar

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

Se podría aprovechar file:read_file/1 y binary:split/3 para hacer este trabajo en dos pasos:

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