erlang - Erlang读stdin写stdout

Question

我正在尝试通过interviewstreet学习erlang。我现在只是学习语言，所以我几乎一无所知。我想知道如何从stdin读取并写入stdout。

我想编写一个写“ Hello World！”的简单程序。在stdin中收到的次数。

因此，使用标准输入：

6

写入标准输出：

Hello World!
Hello World!
Hello World!
Hello World!
Hello World!
Hello World!

理想情况下，我一次将读取标准输入一行（即使在这种情况下仅为一位数），因此我认为我将使用get_line。这就是我现在所知道的。

谢谢

谢谢

Answer 1

这是另一个解决方案，可能更具功能性。

#!/usr/bin/env escript

main(_) ->
    %% Directly reads the number of hellos as a decimal
    {ok, [X]} = io:fread("How many Hellos?> ", "~d"),
    %% Write X hellos
    hello(X).

%% Do nothing when there is no hello to write
hello(N) when N =< 0 -> ok;
%% Else, write a 'Hello World!', and then write (n-1) hellos
hello(N) ->
   io:fwrite("Hello World!~n"),
   hello(N - 1).