fork并发子进程为何总是2的n次方，我的本意是forkn个子进程的

wanahoo

想在command下测试fork多个子进程，当好像每次都是2的n次方，代码如下：
BBcode[ code]
#!/usr/bin/perl
use IO::Socket;
die "Usage0 num" if @ARGV<1;
my $num=shift;
for(my $i=0;$i<$num;$i++){
defined(my $child=fork()) or die "Can't fork!\n";
next;
}
if ($child==0) {
$sock=IO::Socket::INET->;new( PeerHost=>;'192.192.191.134',
                        PeerPort        =>;12000,
                        Proto           =>;'tcp')
                        or die "Can't connect socket@\n";

my $answer=<$sock>;;
print "$$:Answer is $answer\n";
close $sock;
}
[ /code]
是何故？不解   

apile

1. 
   
2. #!/usr/bin/perl
   
3. use IO::Socket;
   
4. die "Usage:$0 num" if @ARGV<1;
   
5. my $num=shift;
   
6. for(my $i=0;$i<$num;$i++){
   
7. defined(my $child=fork()) or die "Can't fork!\n";
   
8. next;
   
9. }
   
10. if ($child==0) {
    
11. $sock=IO::Socket::INET->;new( PeerHost=>;'192.192.191.134',
    
12. PeerPort =>;12000,
    
13. Proto =>;'tcp')
    
14. or die "Can't connect socket:$@\n";
    
15. 
    
16. my $answer=<$sock>;;
    
17. print "$$:Answer is $answer\n";
    
18. close $sock;
    
19. }
    

复制代码

第一..邏輯不對....
if($child==0){
應該要在
fork後面馬上就做....不能在迴圈外面
判斷...
第二..你沒有 catch CHLD signal
Parent Process將無法替Child Process回收memory與Process....
所以你看的process應該是你先前產生的..並非n次法個...
先去看看相關的書籍吧....

wanahoo

多谢apile，我修改如下：
[code][/code]
#!/usr/bin/perl
use IO::Socket;
use POSIX;
die "Usage0 num" if @ARGV<1;
$SIG{CHLD}=sub{ while (waitpid(-1,WNOHANG)>;0) {} };
my $num=shift;
for(my $i=0;$i<$num;$i++){
defined(my $child=fork()) or die "Can't fork!\n";
if ($child==0) {
$sock=IO::Socket::INET->;new( PeerHost=>;'192.192.191.134',
PeerPort =>;12000,
Proto =>;'tcp')
or die "Can't connect socket@\n";

my $answer=<$sock>;;
print "$$:Answer is $answer\n";
close $sock;
}
}
但还是有2的n次方－1个子进程

JohnBull

因为fork完后的子进程就不应该继续fork了,儿子又生了孙子.

apile

child process的那段最後應該要exit;
不然他不會被回收....see??

wanahoo

谢谢两位，可以了，呵呵