条件を満たす行を取り除く in Erlang DouKaku?

条件を満たす行を取り除く

ファイルから1行ずつ読み込み、"#"で始まる行だけを取り除いてファイルに出力するコードを書いてください。

サンプル入力

hello!
# remove this
 # don't remove this
bye!

サンプル出力

hello!
 # don't remove this
bye!

post comment

Posted feedbacks - Erlang

一行づつ処理します。正規表現を使う必要はあまりないかも。

-module(file_conv).
-export([file_conv/2]).

conv(In, Out) ->
    case io:get_line(In, "") of
        eof -> true;
        Line ->
            case regexp:match(Line, "^#") of
                nomatch -> io:put_chars(Out, Line);
                _ -> false
            end,
            conv(In, Out)
    end.

file_conv(InFileName, OutFileName) ->
    {ok, In} = file:open(InFileName, read),
    {ok, Out} = file:open(OutFileName, write),
    conv(In, Out).

DouKaku?

条件を満たす行を取り除く

Posted feedbacks - Erlang

Index

Feed

Other

Link

Pathtraq