🚀 go-pugleaf

Hallo,

Ik heb hier een klein probleempje met de Async module voor perl.  Het rare
is dat het gedrag op solaris en windows (xp pro) verschillend is en ik
geraak er niet meer wijs uit.
Wat moet het doen:
1. een while loop 11 keer doorlopen en 10 keer daarvan een asynchroon
process starten.
2. als een async process is afgelopen wordt de return waarde weggeschreven
in een file.

Dit is de code:
use strict;
use Async;
my $continue = 1;
my $i = 0;
my ($retVal, $proc);
open (FILE, ">test.txt") or die "cannot open file\n";
while( $i<11)
{
 if($proc)
 {
  while ( !( $proc->ready)){}
  $retVal = $proc->result;
  print "end of $retVal\n";
 }
 if( $i<10)
 {
  $proc = Async->new(sub { test($i)}) or die;
 }
 if( defined($retVal))
 {
  print FILE "test line $retVal\n";
 }
 $i++;
}
close FILE;

sub test
{
 my ( $param) = @_;
 sleep 1;
 return $param;
}

Redelijk simpel denk ik toch maar het werkt verschillend op solaris en
windows.  Op windows is het resultaat van het output bestand zoals ik het
verwacht maar op solaris loopt er iets de mist in en ik weet niet meer wat
het is.

dit is de output van windows:
test line 0
test line 1
test line 2
test line 3
test line 4
test line 5
test line 6
test line 7
test line 8
test line 9


en dit is die van solaris:
test line 0
test line 0
test line 1
test line 0
test line 1
test line 2
test line 0
test line 1
test line 2
test line 3
test line 0
test line 1
test line 2
test line 3
test line 4
test line 0
test line 1
test line 2
test line 3
test line 4
test line 5
test line 0
test line 1
test line 2
test line 3
test line 4
test line 5
test line 6
test line 0
test line 1
test line 2
test line 3
test line 4
test line 5
test line 6
test line 7
test line 0
test line 1
test line 2
test line 3
test line 4
test line 5
test line 6
test line 7
test line 8
test line 9


Moest er iemand kunnen helpen, ik zal je eeuwig dankbaar zijn.