Question

我以前只使用bash正则表达式，grep，sed，awk等。尝试Perl 6 regexes后我的印象是他们的工作速度比我想象的慢，但可能原因是我处理不当。我做了一个简单的测试来比较Perl 6和bash中的类似操作。这是Perl 6代码：

my @array = "aaaaa" .. "fffff";
say +@array; # 7776 = 6 ** 5

my @search = <abcde cdeff fabcd>;

my token search {
    @search
}

my @new_array = @array.grep({/ <search> /});
say @new_array;

然后我将@array打印到名为array（包含7776行）的文件中，创建了一个名为search的文件，其中包含3行（abcde，cdeff ，fabcd）并进行了简单的grep搜索。

$ grep -f search array

在两个程序产生与预期相同的结果后，我测量了他们工作的时间。

$ time perl6 search.p6
real    0m6,683s
user    0m6,724s
sys     0m0,044s
$ time grep -f search array
real    0m0,009s
user    0m0,008s
sys     0m0,000s

那么，我在Perl 6代码中做错了什么？

UPD：如果我将搜索令牌传递给grep，循环遍历@search数组，程序运行得更快：

my @array = "aaaaa" .. "fffff";
say +@array;

my @search = <abcde cdeff fabcd>;

for @search -> $token {
  say ~@array.grep({/$token/});
}

$ time perl6 search.p6
real    0m1,378s
user    0m1,400s
sys     0m0,052s

如果我手动定义每个搜索模式，它的工作速度会更快：

my @array = "aaaaa" .. "fffff";
say +@array; # 7776 = 6 ** 5

say ~@array.grep({/abcde/});
say ~@array.grep({/cdeff/});
say ~@array.grep({/fabcd/});

$ time perl6 search.p6
real    0m0,587s
user    0m0,632s
sys     0m0,036s

Answer 1

grep命令比Perl 6的正则表达式简单得多，并且还需要更多年才能得到优化。它也是在Rakudo中没有看到太多优化的领域之一;部分原因是因为它被认为是一件难以开展工作的事情。

对于更高效的示例，您可以预编译正则表达式：

my $search = "/@search.join('|')/".EVAL;
#  $search =  /abcde|cdeff|fabcd/;
say ~@array.grep($search);

这种变化导致它在大约半秒内运行。

如果@search中存在任何恶意数据，您必须这样做，使用起来可能更安全：

"/@search».Str».perl.join('|')/".EVAL

编译器无法为/@search/生成优化的代码，因为@search在编译正则表达式后可能会发生变化。可能发生的情况是，第一次使用正则表达式时，它会被重新编译为更好的形式，然后只要@search没有被修改就缓存它。
（我认为Perl 5做了类似的事情）

您必须记住的一个重要事实是，Perl 6中的正则表达式只是一种用特定于域的子语言编写的方法。

Perl 6中的正则表达速度

1 个答案: