perl fork出现<defunct> 求解决方法

cnbist

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Socket;
   
4. use IO::Socket::INET;
   
5. 
   
6. my $port = "83";
   
7. my $adderss = "127.0.0.1";
   
8. my $header = "HTTP/1.1 200 OK\n";
   
9.    $header .= "Date:".time()."\n";
   
10.    $header .= "Server: NsCp server/1.0\n";
    
11.    $header .= "Content-Type: text/html; charset=utf-8\n";
    
12.    $header .= "X-Powered-By: NsCp server\n";
    
13.    $header .= "Connection: close\n";
    
14. my $server = new IO::Socket::INET(
    
15.             'Localhost' => $adderss,
    
16.             'LocalPort' => $port,
    
17.             'Listen'    => 5,
    
18.             'Proto'     => 'tcp',
    
19.             'Reuse'     => 1
    
20.         ) or die "Reason: $!";
    
21. 
    
22. while(my $client = $server->accept()) {
    
23.     if(my $pid = fork){
    
24.         next;
    
25.     }
    
26.     my $request = <$client>;
    
27.     $client->write($header."\n<center><h1>Welcome to Server</h1><pre>");
    
28.     $client->write($request);
    
29.     close($client);
    
30.     close($server);
    
31.     exit;
    
32. }
    
33. close($server);
    

复制代码

有2个问题需要解决   
1.my $request = <$client>;
这样只可以获取一行记录 怎么样可以获取所有行记录
2.程序再客户端每发起一个连接就会在服务器上生成一个<defunct>进程

[ 本帖最后由 cnbist 于 2009-9-21 09:49 编辑 ]

Perl_Er

1. 用while()
2.你的子进程没都回收

churchmice

parent里面

1. 
   
2. use POSIX ":sys_wait_h";
   
3.                    #...
   
4.                    do {
   
5.                        $kid = waitpid(-1, WNOHANG);
   
6.                    } until $kid > 0;
   

复制代码

orangetouch

lz用的是freebsd？

我记得这个问题在FreeBSD下遇到过，但是在Linux下不需要处理$SIG{CHLD}，或者直接设置成ignore就行

hwxo

收割子进程,安装信号处理器