Text = readfile("Solution607.erl"),

-module(readfile).
-export([start/0]).

start() ->

Text = readfile("Solution607.erl"),

io:format("~s~n", [Text]).

readfile(Filename) ->
case file:read_file(Filename) of
{ok, Contents} -> binary_to_list(Contents);
{error, ErrorInfo} -> throw("Error: " ++ file:format_error(ErrorInfo))
end.

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.