遇到一個(gè)CGI問(wèn)題，高手幫忙啊~

ddgfff

我用perl寫系統(tǒng)管理的頁(yè)面，遇到一個(gè)問(wèn)題。
在cgi頁(yè)面里我用system函數(shù)調(diào)用系統(tǒng)命令，命令執(zhí)行的比較慢，頁(yè)面卻直接執(zhí)行到了結(jié)尾，根本沒(méi)有等待system函數(shù)調(diào)用的命令執(zhí)行完畢，可是我還想看到命令執(zhí)行好后的輸出，我該怎么解決這個(gè)問(wèn)題呀？~

等待高人指點(diǎn)啊~

iamlimeng

試試用``呢

$date_command = "/bin/date";
$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date);

平時(shí)獲取系統(tǒng)時(shí)候，用sendmail發(fā)送郵件，用``調(diào)用都挺正常的

ddgfff

回復(fù) 2# iamlimeng


    今天整這個(gè)問(wèn)題整了一天，不停的試各種方法。``和qx//和system都試了，我本來(lái)想print命令執(zhí)行完的輸出結(jié)果到頁(yè)面上，我用一個(gè)數(shù)組來(lái)接住輸出，然后print，沒(méi)成功。

因?yàn)閳?zhí)行的命令需要連接網(wǎng)絡(luò)，所以會(huì)稍等一會(huì)才執(zhí)行完畢。目前我把輸出的信息輸入到log文件里是可以的，就是無(wú)法直接顯示在當(dāng)前網(wǎng)頁(yè)上。

我找了網(wǎng)上的一些資料，有人說(shuō)用open FILE,"ls |";這樣的管道，我明天再試試看，不知道有沒(méi)有別的方法了呢~

謝謝iamlimeng朋友回答哈~

Mr-Summer

print STDERR?可以打印不？

iamlimeng

回復(fù) 3# ddgfff


print "Content-type: text/html\n\n";

你應(yīng)該在print錯(cuò)誤信息前打印以上標(biāo)頭，否則在IE顯示里是看不到的。你說(shuō)能輸出到LOG，那就肯定能輸出到IE。

ddgfff

回復(fù) 5# iamlimeng


    我發(fā)現(xiàn)cgi頁(yè)面執(zhí)行的時(shí)候不等system執(zhí)行完畢就執(zhí)行到</html>標(biāo)簽這里了，然后如果命令不輸出到log，那么在頁(yè)面上顯示則一片混亂。
我無(wú)法用數(shù)組接收到，然后格式化打印到當(dāng)前頁(yè)面，這個(gè)很無(wú)奈哦~

iamlimeng

貼代碼上來(lái)

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. print "Content-type: text/html\n\n";
   
7. 
   
8. my $info = system('xcopy c:\usr\site c:\test\ /s');
   
9. print $info;
   
10. print "\nOK!";
    
11. 
    
12. exit;

復(fù)制代碼

我用這個(gè)測(cè)試，是正常的，這個(gè)XCOPY命令，運(yùn)行完需要約1分鐘，CGI能正確顯示狀態(tài)。print "\nOK!"; 這一行也是最后才打印，說(shuō)明代碼是在等待system執(zhí)行完。