erlang Text = readfile("Solution608.erl"),
-module(readfile).
-export([start/0]).
-include_lib("kernel/include/file.hrl").
start() ->
Text = readfile("Solution608.erl"),
io:format("~s~n", [Text]).
readfile(Filename) ->
try
{ok, #file_info{size=Size} } = file:read_file_info(Filename),
{ok, IODevice} = file:open(Filename, [raw, binary]),
{ok, Contents} = file:read(IODevice, Size),
Text = binary_to_list(Contents),
file:close(IODevice),
Text
catch
_ : ErrorInfo -> throw("Error: " ++ file:format_error(ErrorInfo))
end.