Нужно простой пример параллелизма в Perl 6

Question

Я пытаюсь одновременно изучить Perl 6 и параллелизм/параллелизм.

Для простого обучения у меня есть папка с файлами 550 '.htm', и я хочу, чтобы общая сумма строк кода среди всех из них. До сих пор у меня есть следующее:

use v6; 

my $start_time = now; 
my $exception; 
my $total_lines = 0; 

my @files = "c:/testdir".IO.dir(test =>/'.' htm $/); 
for @files -> $file { 
    $total_lines += $file.lines.elems; 
    CATCH { 
     default { $exception = $_; } #some of the files error out for malformed utf-8 
    } 
} 
say $total_lines; 
say now - $start_time; 

Это дает сумму 577 449 примерно за 3 секунды.

Как бы переписать это, чтобы использовать идеи параллелизма Perl 6? Я понимаю, что спасенное время не будет много, но оно будет служить доказательством концепции.

Answer 1

use v6; 
my $start_time = now; 
my $exception; 
my @lines; 
my $total_lines = 0; 

my @files = "c:/testdir".IO.dir(test =>/'.' htm $/); 
await do for @files -> $file { 
    start { 
     @lines.push($file.lines.elems); 
     CATCH { 
      default { $exception = $_; } #some of the files error out for malformed utf-8 
     } 
    } 
} 
$total_lines = [+] @lines; 
say $total_lines; 
say now - $start_time; 

Answer 2

Реализация предложения Кристофа. Счет немного выше моего исходного сообщения, потому что теперь я могу читать в искаженных файлах UTF-8, используя encode latin1.

use v6; 
my $start_time = now; 

my @files = "c:/iforms/live".IO.dir(test =>/'.' htm $/); 
my $total_lines = [+] @files.race.map(*.lines(:enc<latin1>).elems); 

say $total_lines; 

say now - $start_time;