operating-system - 如何在erlang中连续显示os命令输出？

我需要从erlang的os命令中连续显示stdout / stderr。
在ruby中，我可以使用以下代码实现它：

s1, s2 , s3, t = Open3.popen3('for %a in (1 2 3 4 5 6 7 8 9) do (echo message & sleep 2 ) 2>&1 ')

s2.each do |l|
    puts l
end

它将以“实时”显示“消息\ n消息\ n”-无需等待过程结束。

我试过了os:cmd(..)
和

1> P5 = erlang:open_port({spawn, "ruby rtest.rb"}, [stderr_to_stdout, in, exit_s
tatus, binary,stream, {line, 255}]).
#Port<0.505>
2> receive {P5, Data} -> io:format("Data ~p~n",[Data]) end.
Data {data,{eol,<<>>}}
ok

但是他们两个都等待过程结束。

在Erlang中是否可以连续读取标准输出？

编辑：
换句话说，我在erlang中寻找popen（c / c ++; proc_open（php）等）函数

编辑2
可在linux上运行的代码（已在centos6.2上测试）。感谢vinod：

-module(test).
-export([run/0]).


run() ->
    P5 = erlang:open_port({spawn, "sh test.sh"},
    [stderr_to_stdout, in, exit_status,stream, {line, 255}]),
    loop(P5).

loop(P) ->
       receive{P, Data} ->
           io:format("Data ~p~n",[Data]),
       loop(P)
       end.

输出：

10> c(test).
{ok,test}
11> test:run().
Data {data,{eol,"1"}}
Data {data,{eol,"2"}}
Data {data,{eol,"3"}}
Data {data,{eol,"4"}}
Data {data,{eol,"5"}}
Data {data,{eol,"6"}}
Data {data,{eol,"7"}}
Data {data,{eol,"8"}}
Data {data,{eol,"9"}}
Data {data,{eol,"10"}}
Data {exit_status,0}

最佳答案

如果我理解正确，则希望继续与os命令同时执行程序。在Erlang中，您可以生成一个执行该操作的进程，然后就可以继续。例如

1> spawn(fun() ->
       P5 = erlang:open_port({spawn, "ruby rtest.rb"},
                             [stderr_to_stdout, in, exit_status,
                              binary,stream, {line, 255}]),
       receive {P5, Data} ->
           io:format("Data ~p~n",[Data])
       end
   end).
<0.32.0>
2> 5+5.
10
3>

最好在模块中编写代码，以便您可以更好地理解它。