È necessario un semplice esempio di parallelismo in Perl 6

Question

Sto cercando di imparare Perl 6 e parallelismo/concorrenza allo stesso tempo.

Per un semplice esercizio di apprendimento, ho una cartella di 550 file ".htm" e voglio la somma totale di righe di codice tra tutti loro. Finora, ho questo:

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; 

Che dà una somma di 577,449 in circa 3 secondi.

Come potrei riscriverlo per sfruttare le idee di parallelismo di Perl 6? Mi rendo conto che il tempo risparmiato non sarà molto, ma funzionerà come prova del concetto.

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

Implementazione del suggerimento di Christoph. Il conteggio è leggermente superiore al mio post originale perché ora sono in grado di leggere i file UTF-8 malformati usando la codifica 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;