遇到一个CGI问题，高手帮忙啊~

ddgfff

我用perl写系统管理的页面，遇到一个问题。
在cgi页面里我用system函数调用系统命令，命令执行的比较慢，页面却直接执行到了结尾，根本没有等待system函数调用的命令执行完毕，可是我还想看到命令执行好后的输出，我该怎么解决这个问题呀？~

等待高人指点啊~

iamlimeng

试试用``呢

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

平时获取系统时候，用sendmail发送邮件，用``调用都挺正常的

ddgfff

回复 2# iamlimeng


    今天整这个问题整了一天，不停的试各种方法。``和qx//和system都试了，我本来想print命令执行完的输出结果到页面上，我用一个数组来接住输出，然后print，没成功。

因为执行的命令需要连接网络，所以会稍等一会才执行完毕。目前我把输出的信息输入到log文件里是可以的，就是无法直接显示在当前网页上。

我找了网上的一些资料，有人说用open FILE,"ls |";这样的管道，我明天再试试看，不知道有没有别的方法了呢~

谢谢iamlimeng朋友回答哈~

Mr-Summer

print STDERR?可以打印不？

iamlimeng

回复 3# ddgfff


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

你应该在print错误信息前打印以上标头，否则在IE显示里是看不到的。你说能输出到LOG，那就肯定能输出到IE。

ddgfff

回复 5# iamlimeng


    我发现cgi页面执行的时候不等system执行完毕就执行到</html>标签这里了，然后如果命令不输出到log，那么在页面上显示则一片混乱。
我无法用数组接收到，然后格式化打印到当前页面，这个很无奈哦~

iamlimeng

贴代码上来

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;

复制代码

我用这个测试，是正常的，这个XCOPY命令，运行完需要约1分钟，CGI能正确显示状态。print "\nOK!"; 这一行也是最后才打印，说明代码是在等待system执行完。