Reading Lines from a File in erlang

read_lines.erl

for_each_line_in_file(Name, Proc, Mode, Accum0) ->
    {ok, Device} = file:open(Name, Mode),
    for_each_line(Device, Proc, Accum0).

for_each_line(Device, Proc, Accum) ->
    case io:get_line(Device, "") of
        eof  -> file:close(Device), Accum;
        Line -> NewAccum = Proc(Line, Accum),
                    for_each_line(Device, Proc, NewAccum)
    end.

% example
% A = for_each_line_in_file("complex.erl",
%   fun(X, Count) -> io:fwrite("~10B: ~s", [Count, X]),
%       Count + 1 end, [read], 0).