Windowsでperlで並列プログラミングを行うには？

Question

私はUnixシステムでperlで次のパターンのコードを使用しましたが、Windowsではクラッシュします。 Windows上でperlを使用してフォークするかスレッドを使用して同じことを達成するにはどうすればよいですか？ここ

Answer 1

use Parallel::ForkManager; 

my $pm = Parallel::ForkManager->new($MAX_PROCESSES); 

DATA_LOOP: 
foreach my $data (@all_data) { 
    # Forks and returns the pid for the child: 
    my $pid = $pm->start and next DATA_LOOP; 

    # ... do some work with $data in the child process ... 

    $pm->finish; # Terminates the child process 
} 

フォークを用いて一例である。

#!/usr/bin/perl -w 
use strict; 


foreach my $data (@all_data) { 
    my $pid; 
    next if $pid = fork; # Parent goes to next server. 
    die "fork failed: $!" unless defined $pid; 

    # From here on, we're in the child. Do whatever the 
    # child has to do... The server we want to deal 
    # with is in $data. 

    exit; # Ends the child process. 
} 

# The following waits until all child processes have 
# finished, before allowing the parent to die. 

1 while (wait() != -1); 

print "All done!\n";