26.04.2009, 16:33
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Попробуй типа
PHP код:
use warnings;
use threads;
use threads::shared;
my $tn = 5;
my @trl = ();
my $start : shared = 1;
my $end = 4000;
for(0..$tn-1) { $trl[$_] = threads->create(\&func, $_) }
for(@trl) { $_->join }
sub func
{
while($start < $end)
{
{lock($start); $start++;} print $start."\n";
}
}
|
|
|