关于理解Perl的fork函数

  1. #!/usr/bin/perl -w 
  2. # wangxiaoyu#live.com
  3. use strict;  
  4.  
  5. defined(my $pid=fork()) or die "Fork process failured:$!\n";  
  6. unless($pid)  
  7. {  
  8.      # This is the child process.  
  9.      system "date";  
  10.      sleep(3);  
  11.      print ("Exit child after 3 seconds wait!\n");  
  12.      exit();  
  13. }  
  14. # This is the parent process.  
  15. waitpid($pid,0);  
  16. system "date";  
  17. print ("exit parent!\n");

你可能感兴趣的:(关于理解Perl的fork函数)