如何让cgi返回而子程序继续运行？

huangsongsha

在用perl编cgi

在perl程序里希望调用一个将一直运行的c程序（通过表单修改配置，然后重启，一直监听/处理），使用fork，然后在子进程中运行c程序，在父进程中执行exit
但是在网页中调用cgi后，还是一直显示“正在载入...”
有什么方法让子进程一直运行，cgi不再等待吗？

兰花仙子

原帖由 "huangsongsha" 发表：
在用perl编cgi

在perl程序里希望调用一个将一直运行的c程序（通过表单修改配置，然后重启，一直监听/处理），使用fork，然后在子进程中运行c程序，在父进程中执行exit
但是在网页中调用cgi后，还是一直显示“正?.........

这个也许较难哦，因为子进程和父进程的STDIN/STDOUT一样，所以页面无法退出。试试exec()看看了。

Qiang

子进程运行，cgi 程序不等？ 你可以换个角度，打开一个小窗口来继续这个 cgi 程序。 或者，如果你的程序不需要准确的实时操作， 就可以运行个 cron job， 你的 cgi 程序只是更新一个文件，cron job  定时根据这个文件内容在后台运行。时间上可以只差个几分钟。cron job 做法容易而且更稳定些。


你也可以看看这篇文章，讲的就是 perl 在 cgi 里的前台和后台进程。
http://www.stonehenge.com/merlyn/WebTechniques/col20.html

觉得好的话就翻译一下，加到 perlchina 中文化项目里，让大家受益

兰花仙子

我想了一下，如果你把web页面关掉，应该相当于给CGI程序发送HUP信号，你可以重载这个HUP信号句柄看看。例如，在脚本开头处：
$SIG{HUP}='IGNORE';
这表示忽略HUP信号。你试试看吧。

apile

不用重载...我先前碰过这样的问题...CGI怎麽样都抓不到页面关闭的signal..
重载也没用...但是按下页面上的STOP可以抓得到INT or PIPE的signal...但是没用...

看看network programming with perl里面有一个怎麽让daemon变成standalone的范例....改一下就可以了....

兰花仙子

原帖由 "apile" 发表：
不用重载...我先前碰过这样的问题...CGI怎麽样都抓不到页面关闭的signal..
重载也没用...但是按下页面上的STOP可以抓得到INT or PIPE的signal...但是没用...

看看network programming with perl里面有一个怎麽让..........

你说的对，可以重定义STDIN/STDOUT，使其脱离标准STDIN/STDOUT（这里就是web服务器了）。such as:

1. sub daemon
   
2. {
   
3.     my $child = fork();
   
4.     die "can't fork" unless defined $child;
   
5.     exit 0 if $child;
   
6.     setsid();
   
7.    
   
8.     open (STDIN, "</dev/null");
   
9.     open (STDOUT, ">;/dev/null");
   
10.     open (STDERR,">;&STDOUT");
    
11. 
    
12.     chdir $rundir;
    
13.     umask(022);
    
14.     $ENV{PATH}='/bin:/usr/bin:/sbin:/usr/sbin';
    
15. 
    
16.     return $$;
    
17. }

复制代码

huangsongsha

哇，果然行了
重定义输入输出就可以了

谢谢大家了，真想请大家喝酒

兰花仙子

原帖由 "huangsongsha" 发表：
哇，果然行了
重定义输入输出就可以了

谢谢大家了，真想请大家喝酒

我喝果汁的,

北京野狼

cgi程序，那有必要fork

兰花仙子

[quote]原帖由 "北京野狼"]cgi程序，那有必要fork[/quote 发表：


他只是想通过CGI来激活某个后台程序，凭什么认为不能fork呢？