Erlang-Lesen von stdin, stdout schreiben

Ich versuche zu lernen erlang durch interviewstreet. Ich habe nur das erlernen der Sprache, nun, so weiß ich fast nichts. Ich Frage mich, wie die von stdin Lesen und nach stdout schreiben.

Möchte ich mal ein einfaches Programm schreibt "Hallo Welt!" die Anzahl der Zeiten erhielt in stdin.

Also mit stdin input:

6

Schreiben auf stdout:

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

Idealerweise werde ich Lesen der Standardeingabe eine Zeile zu einem Zeitpunkt (auch wenn es nur eine Zahl in diesem Fall) also ich denke, ich werde mit get_line. Das ist alles was ich weiß, für jetzt.

Dank

Dank

InformationsquelleAutor GTDev | 2012-06-03
  1. 23

    Hier ist eine andere Lösung, vielleicht auch mehr funktionsfähig.

    #!/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).
    • +1 für die tail-Rekursion!
    InformationsquelleAutor Teetoo
  2. 1

    Hier mein Schuss auf ihn. Ich habe escript so kann es von der Kommandozeile ausgeführt, aber es können in einem Modul ist einfach:

    #!/usr/bin/env escript

main(_Args) ->
    % Read a line from stdin, strip dos&unix newlines
    % This can also be done with io:get_line/2 using the atom 'standard_io' as the
    % first argument.
    Line = io:get_line("Enter num:"), 
    LineWithoutNL = string:strip(string:strip(Line, both, 13), both, 10),

    % Try to transform the string read into an unsigned int
    {ok, [Num], _} = io_lib:fread("~u", LineWithoutNL),

    % Using a list comprehension we can print the string for each one of the
    % elements generated in a sequence, that goes from 1 to Num.
    [ io:format("Hello world!~n") || _ <- lists:seq(1, Num) ].

    Wenn Sie nicht wollen, um eine Liste zu verwenden Verständnis, dies ist ein ähnlicher Ansatz auf der letzten Zeile des Codes durch die Verwendung von Listen:foreach und die gleiche Reihenfolge:

        % Create a sequence, from 1 to Num, and call a fun to write to stdout
    % for each one of the items in the sequence.
    lists:foreach(
        fun(_Iteration) ->
            io:format("Hello world!~n")
        end,
        lists:seq(1,Num)
    ).
    InformationsquelleAutor marcelog
  3. 0
    % Enter your code here. Read input from STDIN. Print output to STDOUT 
% Your class should be named solution

-module(solution).
-export([main/0, input/0, print_hello/1]).

main() ->
    print_hello(input()).

print_hello(0) ->io:format("");
print_hello(N) ->
    io:format("Hello World~n"),
    print_hello(N-1).
input()->
    {ok,[N]} = io:fread("","~d"),
N.
    InformationsquelleAutor Ikechukwu Henry Odoh
Schreibe einen Kommentar