如何在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> 

更好地寫在模塊中，以便您能更好地理解它。