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; 

これは約3秒で合計577,449になります。

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

Christophの提案を実装しています。私は今、encode latin1を使って不正な形式のUTF-8ファイルを読むことができるので、カウントは私の元のポストよりわずかに高いです。 .race` `ないものに比べて`、： `私の$ total_lines = [+] files.race.map @（ENC ）.elems。*ライン（）のような

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;