WindowsXP如何杀死fork出的子进程

maybenot

这个不行
        kill("TERM", $kidpid);       # send SIGTERM to child

这个又说进程号找不到（是个负数）
        system("taskkill /PID $kidpid");

劳烦高手指点下，谢谢

aef25u

如果是WindowsXP收割子进程我知道，但不知是否是你想要的：
方法1：

1. #!/usr/bin/perl -w
   
2. foreach (1..10){
   
3. 
   
4. unless ($pid = fork()) {
   
5.     unless (fork()) {
   
6.     print "Child $_ : My pid = $$\n";
   
7.     &cmd($_);
   
8.     }
   
9. exit 0;
   
10. }
    
11. 
    
12. waitpid($pid, 0);
    
13. }
    
14. 
    
15. sub cmd{
    
16.       my $da=time();
    
17.       print "$_[0] $da\n";
    
18. }

复制代码

方法2：

1. #!/usr/bin/perl
   
2. our $zombies = 0;
   
3. $SIG{CHLD} = sub { $zombies++};
   
4. 
   
5. my $i=0;
   
6. foreach (1..10) {
   
7. $i++;
   
8. reaper() if $zombies;
   
9. my $pid = fork();
   
10. 
    
11. unless(defined($pid))
    
12. {
    
13.    print ("Fork process failured!\n");
    
14.    exit();
    
15. }
    
16. 
    
17. if ($pid)
    
18. {
    
19.      # This is the child process.
    
20.      cmd($i);
    
21.      exit();
    
22. }
    
23. else
    
24. {
    
25.      # This is the parent process.
    
26.      next;
    
27. }
    
28. 
    
29. }
    
30. 
    
31. sub reaper {
    
32. my $zombie;
    
33. our %Kid_Status;
    
34. $zombies = 0;
    
35. while (($zombie = waitpid( -1, WNOHANG)) != -1) {
    
36. $Kid_Status{$zombie} = $?;
    
37. }
    
38. }
    
39. 
    
40. sub cmd{
    
41.       my $da=time();
    
42.       print "$_[0] $da\n";
    
43. }

复制代码

flw

还是友好一点，让它自行退出吧。
有话好好说，有什么事不能商量着来？

黑色阳光_cu

-9可以不?

xti9er

回复 1# maybenot


    如果我没猜错的话，你搞错了。
windows下fork出来的是线程吧？



如果你非要用system("taskkill /PID $kidpid"); 你可以看看tasklist /fi "pid eq $kidpid"的结果。

maybenot

回复 2# aef25u


多谢关注，我的确有杀死子进程的需求。。

maybenot

回复 3# flw

版主，谢谢。

我的问题是这样，就是有个socket，要用子进程负责stdin输入，父进程则监听socket过来的数据

问题其实我以前发过原贴在这  http://bbs.chinaunix.net/thread-1709516-1-5.html

那个perlipc里面的例子在Linux上是可用的，windows上则不行，子进程接受stdin输入后根本发不出去，所以我想了个法，client端建两个client，一个发送，一个接受，这样倒是可以成功发送和接受了，但还一条不满意，我希望在socket server端退出后，socket client端也能退出

请教。

maybenot

回复 4# 黑色阳光_cu


    你说的是 kill -9 吗，我希望在windows上用啊。。

maybenot

回复 5# xti9er


    果然，有什么办法没？希望写出来的程序可以在windows和linux上都能用？

tasklist /FI "PID eq -2916" 不接受负的ID
ERROR: The search filter cannot be recognized.