Perl 顯示 Shell調(diào)用的打印信息，能不能實(shí)時(shí)顯示

net_robber

我要做Daily Build工具

由于字符串較多，所以選擇了Perl


Build過(guò)程中需要大量使用svn、gcc、make、zip和其他shell腳本

我當(dāng)前使用類(lèi)似下面的方式

1. $cmd="cd XXX && ./configure -DYYY && make clean all";
   
2. print `$cmd 2>&1`;if($?!='0'){print "[Error:$?]$cmd\n";exit $?;}
   
3. $cmd="/path/tools.sh"
   
4. print `$cmd 2>&1`;if($?!='0'){print "[Error:$?]$cmd\n";exit $?;}
   

復(fù)制代碼

由于`$cmd`時(shí)間比較長(zhǎng)，并且輸出較多,當(dāng)前不能立刻看到編譯過(guò)程中的提示信息（如：警告信息）


請(qǐng)問(wèn)有沒(méi)有其他思路可以實(shí)現(xiàn)實(shí)時(shí)打印shell的的輸出信息

cduedu

個(gè)人覺(jué)得有兩種辦法：
1. 讓cmd在后臺(tái)執(zhí)行，把的cmd的輸出到一個(gè)文件，然后再去tail它，這個(gè)好像不是太好。
2.第二個(gè)就是把讓cmd的輸出輸出到當(dāng)前的顯示設(shè)備：

1. topaz$who am i
   
2. hpcyuhua pts/3        2010-09-02 11:28 (222.177.19.233)

復(fù)制代碼

當(dāng)前的顯示設(shè)備是pts/3,我測(cè)試的語(yǔ)句是

1. $cmd="echo 1 >/dev/pts/3; sleep 6; echo 2 >/dev/pts/3; sleep 6; echo 3 >/dev/pts/3";
   
2. `$cmd`;
   
3. topaz$perl cmd.pl
   
4. 1
   
5. 2
   
6. 3
   

復(fù)制代碼

socyno

只是要實(shí)時(shí)的看到執(zhí)行的輸出，為什么不用 system 呢，

cduedu

回復(fù) 3# socyno


    恩，開(kāi)始還以為system和``的效果一樣就沒(méi)試。試了一下system可以實(shí)時(shí)得到輸出結(jié)果。

net_robber

多謝兩位

2樓第二個(gè)方法和3樓的方法都可以，謝謝

lululau

open CMD, "cmd|";
print while <CMD>;