Loading [MathJax]/extensions/tex2jax.js

2014年8月9日土曜日

erlangで一行づつファイルを読む。

io:readだとerlang項とかいうので書かれたファイルしか読まないようなのでio:get_lineを使う必要があるみたいだ。 erlangの書き方は少しだけ分かってきた気がする。
-module(file_open).
-export([file_open/0,read_file/1]).
file_open() ->
{ok,S} = file:open("input.txt",read),
Val = read_file(S),
file:close(S),
{ok,Val}.
read_file(S) ->
case io:get_line(S,'') of
eof -> [];
Data -> [Data|read_file(S)]
end.
view raw file_open.erl hosted with ❤ by GitHub

0 件のコメント: