Advertisement
Guest User

Untitled

a guest
Nov 15th, 2019
192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. $ perl -e'
  2. defined( my $pid = fork() ) or die $!;
  3. if (!$pid) {
  4. open(STDOUT, ">", "a") or die $!;
  5. print("child 1\n");
  6. system("echo child 2");
  7. exit;
  8. }
  9.  
  10. waitpid($pid, 0);
  11. print("parent 1\n");
  12. system("echo parent 2");
  13. '
  14. parent 1
  15. parent 2
  16.  
  17. $ cat a
  18. child 1
  19. child 2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement