问个关于windows下进程的问题

redwyz

如何在主进程运行的时候产生一个子进程,并一直等待这个子进程的退出
我尝试了用 unless (fork) {child here} , 老是运行时出错,
好像fork函数在windows下有问题, 看了一下午的文档,暂时没有找到方案,
望高人指点一二?

路小佳

我运行挺好的， 你试试。

1. 
   
2. #!/usr/bin/perl -W
   
3. #
   
4. # File: fork.pl
   
5. 
   
6. use strict;
   
7. use warnings;
   
8. use POSIX;
   
9. 
   
10. sub do_child() {
    
11.     print "i am chlid.\n";
    
12.     foreach (1..5) {
    
13.         print $_, "\n";
    
14.         sleep(1);
    
15.     }
    
16.     print "child exiting.\n";
    
17.     exit(1);
    
18. }
    
19. 
    
20. my $pid = fork();
    
21. if (!defined($pid)) {
    
22.     die "Cannot fork: $!";
    
23. }
    
24. elsif ($pid == 0) {
    
25.     do_child();
    
26. }
    
27. else {
    
28.     wait();
    
29.     print "child exited.\n"
    
30. }
    

复制代码

alexru

偶这也可以