Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ perl -e'
- defined( my $pid = fork() ) or die $!;
- if (!$pid) {
- open(STDOUT, ">", "a") or die $!;
- print("child 1\n");
- system("echo child 2");
- exit;
- }
- waitpid($pid, 0);
- print("parent 1\n");
- system("echo parent 2");
- '
- parent 1
- parent 2
- $ cat a
- child 1
- child 2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement