Cần ví dụ song song đơn giản trong Perl 6

Question

Tôi đang cố gắng tìm hiểu Perl 6 và song song/đồng thời cùng một lúc.

Đối với một bài tập học tập đơn giản, tôi có một thư mục 550 '.htm' tệp và tôi muốn tổng số dòng mã trong số tất cả chúng. Cho đến nay, tôi có điều này:

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; 

Điều đó cho tổng số 577.449 trong khoảng 3 giây.

Làm cách nào để viết lại để tận dụng các ý tưởng song song Perl 6? Tôi nhận ra thời gian được lưu sẽ không nhiều nhưng nó sẽ hoạt động như một bằng chứng về khái niệm.

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

Thực hiện đề xuất của Christoph. Số đếm cao hơn một chút so với bài viết gốc của tôi bởi vì bây giờ tôi có thể đọc trong các tệp UTF-8 không đúng định dạng bằng cách sử dụng mã hóa 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;