Instead of using fork() how to releasing child process in windows fasion?

[raghav82]

For sending the message in linux environment-
the perl script however uses fork() to release the client process as soon as possible and then in the child process handles the message send.
For sending the message in windows environment-
instead of using fork how to release the child process in the Window fasion? since fork() is not available in windows.

[miller]

since fork() is not available in windows.

Greetings raghav82,

fork is available on windows, but only for perl 5.8 and after. I suggust that you upgrade. The following works fine on my Windows2000 box ActivePerl 5.8.8:

use strict;
 
local $| = 1; # Unbuffer STDOUT
 
my $pid = fork();
die "cannot fork: $!" unless defined $pid;
 
# Parent Process
if ($pid) {
    print "A$_\n" for (1..1000);
 
# Child Process
} else {
    print "       B$_\n" for (1..1000);
    exit(0);
}
 

Alternatively, there is always the threads pragma as well, which is even better for a lot of purposes:

use threads;
use threads::shared;
 
use strict;
 
local $| = 1; # Unbuffer STDOUT
 
my $thr1 = threads->new (sub {
    print "A$_\n" for (1..1000);
});
my $thr2 = threads->new (sub {
    print "       B$_\n" for (1..1000);
});
 
# rejoin the threads when they finish
$thr1->join;
$thr2->join;
 
exit;
 

Typical Output:

...
       B966
       B967
       B968
       B969
       B970
       B971
       B972
       B973
       B974
       B975
A982
A983
A984
A985
A986
A987
A988
A989
A990
A991
A992
A993
A994
A995
A996
A997
A998
       B976
       B977
       B978
       B979
       B980
       B981
       B982
       B983
       B984
       B985
       B986
       B987
       B988
       B989
       B990
       B991
       B992
A999
A1000
       B993
       B994
       B995
       B996
       B997
       B998
       B999
       B1000
 

- Miller

[raghav82]

Thank U miller for your quick reply. can i know is their any way i can do this in the perl vesions which does not support fork()?

[miller]

First of all, I completely don't understand what you're trying to achieve. Your original description did not really make sense.

Nevertheless, as I already said in my first post, the threads pragma was used as an alternative to forking in windows until support was added with version 5.8. Read the link that I already provided to you for details.

- Miller