पर्ल 6

Question

में सरल समांतरता उदाहरण की आवश्यकता है, मैं एक ही समय में पर्ल 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,44 9 की राशि देता है।

पर्ल 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

क्रिस्टोफ के सुझाव को लागू करना। गिनती मेरी मूल पोस्ट से थोड़ी अधिक है क्योंकि अब मैं एनकोड लैटिन 1 का उपयोग करके विकृत यूटीएफ -8 फाइलों में पढ़ने में सक्षम हूं।

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;