Erlangで行頭に行番号をつけるプログラムをつくってみた。

なんとなくつくってみただけ。
Erlangを普段の業務とかでどれだけ使えるかのテストをかねて。

file_number.erl

-module(file_number).
-export([add_file_number/2]).

add_file_number(Readfile, Writefile) ->
  {OK, S} = file:open(Readfile, read),
  {OK, T} = file:open(Writefile, write),
  X = 1,
  read_line(S, T, X),
  file:close(T),
  file:close(S).

read_line(S, T, X) ->
  case io:get_line(S, '') of
    eof ->
      ok;
    Line ->
      io:format(T, "~w~s~s", [X, " ", Line]),
      read_line(S, T, X+1)
  end.

実行してみる

1> c(file_number).
{ok,file_number}
2> file_number:add_file_number("test.dat", "test2.dat").
ok

一応
行番号がつくこと確認。

そんだけ。