Tag Archives: Basic Fork Example

Perl – Basic Fork Example

  • By podtech
  • In Perl

#!/usr/local/bin/perl   use strict; use warnings;   print “Starting main program\n”; my @childs;   for ( my $count = 1; $count <= 10; $count++) {         my $pid = fork();         if ($pid) {         # parent         #print “pid is $pid, parent $$\n”;         push(@childs, $pid);         } elsif ($pid == 0) {                 # child                 sub1($count);                 exit 0;         } else […]

Read More

PHP – Basic Fork Example

  • By podtech
  • In PHP

<?   print “Starting main program\n”; $childs = array();   for ( $count = 1; $count <= 10; $count++) {         $pid = pcntl_fork();         if ( $pid == -1 ) {                 // Fork failed                           echo “Fork failed\n”;                 exit(1);         } else if ( $pid ) {                 # parent                 #print “pid is $pid, parent $$\n”;                 array_push($childs, $pid);         } […]

Read More