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

Question

我需要从erlang的os命令不断显示stdout/stderr。 在红宝石我可以用下面的代码实现：

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中的连续标准输出是否可选？

编辑： 换句话说我寻找一个POPEN（C/C++; proc_open（PHP）与等）功能中的erlang

EDIT2 代码，在Linux的工作原理（上centos6测试0.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} 

Answer 1

如果我理解正确的，你要继续在并行与操作系统命令执行程序。在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> 

更好地写在模块中，以便您能更好地理解它。