fork and Linux/Windows portability

[thelycaeum]

Is it possible to write a perl fork script in such a way that it is seamlessly portable between windows and linux? The idea is the following: I wrote a perl script that produces the input for another program, calls the program 500 to 10000 times to do a calculation using the input, redirects the programs command line output to an array using something like

@foo = `bar $input_file_name`;

and then calculates the average and the standard deviation of the output stored in the array. This process could be speeded up by forking the external program call (obviously, I guess) which is the only thing that takes a while. What module could I use to achieve a speed up under Linux and Windows as well? I could write it in such a way that it recognizes windows and switches to the presently implemented serial processing I guess, but this would be somewhat unsatisfying.

[BrowserUk]

This should run without change, anywhere there is a threaded perl:

#! perl -slw
use strict;
use List::Util qw[ sum ];
use threads;

sub joinable { threads->list( threads::joinable ) };
sub running  { threads->list( threads::running  ) };

my @files = map glob, @ARGV;

our $T //= 4;

my @results;
for my $file ( @files ) {
    async { return `wc -l "$file"`; };
    next if running() < 4;
    push @results, $_->join =~ m[(\d+)] for joinable;
    sleep 1 while running >= 4;
}
sleep 1 while running;
push @results, $_->join =~ m[(\d+)] for joinable;

print "The average number of lines in all the files is:",
    sum( @results ) / @results;

__END__
C:\test>996731 a*.*
The average number of lines in all the files is:77346.75

[rpnoble419]

Depending on how your linux server and the version of Perl on it is setup, I'd suggest that you make a copy of Strawberry Perl and put it in the same directory path as on the Linux box. Especially of the version of Perl under Linux is below 5.12. This means having a c:\usr\bin\perl folder (or what ever the path to you Perl is under Linux) on your windows box. This way you guarantee that the script works on both platforms.