关于waitpid的问题！

怒剑狂啸

我在写Socket程序时，在服务端用如下语句，对fork调用派生的子进程进行处理。
use POSIX 'WNOHANG';
$SIG{CHLD}=sub {while (waitpid(-1,WNOHANG)>;0) {}}
但是每次都不能进行第二次连接。服务端程序只能运行一次便退出，可是去掉这两句一切正常。这是什么原因？

apile

貼一下code吧..
你的server是用standalone,wait,nowait..
那種方式啟動??照理講你的寫法沒錯...
應該不會有問題才對...

怒剑狂啸

只是一个简单的程序，让大家见笑了。
#!/usr/bin/perl
use IO::Socket;
$sock=IO::Socket::INET->;new(LocalHost=>;'192.168.0.189',LocalPort=>;'5555',Reuse=>;1,Listen=>;5);
while ($acc=$sock->;accept()) {
        $pid=fork();
        if ($pid==0) {
                close $sock;
                while ($data=<$acc> {
                        SWITCH: {
                                if ($data eq "quit\r\n" { exit(1);}
                                if ($data eq "host\r\n" {print $acc $acc->;peerhost(),"\n";last SWITCH;}
                                if ($data eq "port\r\n" {print $acc $acc->;peerport(),"\n";last SWITCH;}
                        }
                }
                close ($acc);
        }
        close ($acc);
}
close $sock;

怒剑狂啸

只是一个简单的程序，让大家见笑了。
#!/usr/bin/perl
use IO::Socket;
use POSIX 'WNOHANG';
$SIG{CHLD}=sub {while (waitpid(-1,WNOHANG)>;0) {}}
$sock=IO::Socket::INET->;new(LocalHost=>;'192.168.0.189',LocalPort=>;'5555',Reuse=>;1,Listen=>;5);
while ($acc=$sock->;accept()) {
        $pid=fork();
        if ($pid==0) {
                close $sock;
                while ($data=<$acc> {
                        SWITCH: {
                                if ($data eq "quit\r\n" { exit(1);}
                                if ($data eq "host\r\n" {print $acc $acc->;peerhost(),"\n";last SWITCH;}
                                if ($data eq "port\r\n" {print $acc $acc->;peerport(),"\n";last SWITCH;}
                        }
                }
                close ($acc);
        }
        close ($acc);
}
close $sock;

apile

#!/usr/bin/perl
use IO::Socket;
use POSIX 'WNOHANG';
$SIG{CHLD}=sub {while (waitpid(-1,WNOHANG)>;0) {}};
$SIG{INT}=sub{ $quit++;};
#$sock=IO::Socket::INET->;new(
#  LocalHost=>;'10.144.43.175',LocalPort=>;'5555',Reuse=>;1,Listen=>;5);
$sock=IO::Socket::INET->;new(
   LocalPort=>;'5555',Listen=>;20,Proto=>;'tcp',Reuse=>;1);
die "can't create a listening socket: $@" unless $sock;
warn "Server ready. Waiting for connections ...\n";

while (!$quit){
next unless my $acc=$sock->;accept;

defined($pid=fork()) or die "can't fork!";

if ($pid==0) {
close $sock;
  STDIN->;fdopen($acc,"<" or die "can't reopen STDIN: $!";
  STDOUT->;fdopen($acc,">;" or die "can't reopen STDOUT: $!";
  STDERR->;fdopen($acc,">;" or die "can't reopen STDERR: $!";
  $|=1;

while ($data=<$acc> {
SWITCH: {
if ($data eq "quit\r\n" { exit(1);}
if ($data eq "host\r\n" {print $acc $acc->;peerhost(),"\n";last SWITCH;}
if ($data eq "port\r\n" {print $acc $acc->;peerport(),"\n";last SWITCH;}
}
}
close ($acc);
}
close ($acc);
}
close $sock;


我改好後的程序碼..你的程序碼..怪怪的..

怒剑狂啸

非常感谢！我试了一下，好像只要把$SIG{INT}=sub{ $quit++;};
处理程序加上，就正常了，不知道什么原因？

apile

while ($acc=$sock->;accept()) {
$pid=fork();
關鍵在你的代碼中的這兩行....
$acc=$sock->;accept();
因為$sock->;accept不一定會accept到..
所以如果你這樣寫..當然只會accept一次就斷掉了..
因為有可能$acc=false就直接跳出迴圈了....

所以我的代碼中有
while(!$quit){
next unless my $acc=$sock->;accept;
}

另外你的代碼我執行的時候如果沒加
$SIG{CHLD}這個處理..會有Zombie產生...
而且一個connection就產生一個Zombie...

$SIG{INT} 是當我從console上對 server送出INT Signal
的時候，將$quit數值變成1..如此..
while(!$quit) 就會等於false..server就會自動停止..