并发 – perl6 grep就像并行程序一样

我在perl6中写了一个类似grep的程序,现在我把它编成了并行处理.但是我遇到了一些问题：即使使用相同的命令行,程序有时会成功,有时会失败.当它成功时,事情对我来说是正常的.当它失败时,我不知道为什么……

这是失败时的错误消息.

> greP6 perl *
An operation first awaited:
in sub MAIN at /Users/xxx/Dropbox/bin/greP6 line 28
in block <unit> at /Users/xxx/Dropbox/bin/greP6 line 30

Died with the exception:
CAnnot find method 'Any' on object of type Match
  in regex  at /Users/xxx/Dropbox/bin/greP6 line 34
  in sub do_something at /Users/xxx/Dropbox/bin/greP6 line 34
  in block  at /Users/xxx/Dropbox/bin/greP6 @R_471_5450@

代码是：

#!/usr/bin/env perl6  

constant $color_red = "\e[31m";
constant $color_off = "\e[0m";

sub MAIN(Str $pattern,*@filenames){
    my $chAnnel = ChAnnel.new();
    $chAnnel.send($_) for @filenames; # dir();
    $chAnnel.close;
    my @workers;
    for 1..3 -> $n {
        push @workers,start {
            while (my $file = $chAnnel.poll) {
                do_something($pattern,$filE);
            }
        } 
    }
    await(@workers);
}

sub do_something(Str $pattern,Str $fileName) {
    #say $filename;
    for $filename.IO.lines -> $line  {
        my Str $temp = $line;
        if $temp ~~ s:g/ (<$pattern>) /$color_red$0$color_off/ { 
            say $filename ~ ": " ~ $temp;
        }
    }
}

我的问题是它为什么有时会失败？

问候

鑫

if $temp ~~ s:g/ (<$pattern>) /$color_red$0$color_off/ {

if $temp ~~ s:g/ ($pattern) /$color_red$0$color_off/ {

#!/usr/bin/env perl6

constant $color_red = "\e[31m";
constant $color_off = "\e[0m";

sub MAIN(Str $pattern,*@filenames){
    my $chAnnel = ChAnnel.new();
    $chAnnel.send($_) for @filenames; # dir();
    $chAnnel.close;
    my @workers;    

    # match seems required for pre-compilation
    '' ~~ (my regex pat_regex { <$pattern> });

    for 1..3 -> $n {
        push @workers,start {
            while (my $file = $chAnnel.poll) {
                do_something(&pat_regex,$filE);
            }
        }
    }
    await(@workers);
}

sub do_something(Regex $pat_regex,Str $fileName) {
#    say $filename;
    for $filename.IO.lines -> $line  {
        my Str $temp = $line;
        if $temp ~~ s:g/ ($pat_regeX) /$color_red$0$color_off/ {
            say $filename ~ ": " ~ $temp;
        }
    }
}