我想过滤以@search元素开头的@array元素：
- my @array = "aaaaa" .. "fffff";
- my @search = "aaaa" .. "cccc";
- .put for @array .grep: /^ @search /;
问题是需要19秒.所以,我‘precompile’ grep的正则表达式,整个程序看起来像这样：
- my @array = "aaaaa" .. "fffff";
- my @search = "aaaa" .. "cccc";
- my $search = "/@search.join('|')/".EVAL;
- .put for @array .grep: * ~~ /^ <$search> /;
现在需要0.444秒.
问题：是否有内置的Perl 6方法来做这些事情？将结点插入正则表达式…
解决方法
- my @array = "aaaaa" .. "fffff";
- my @search = "aaaa" .. "cccc";
- my $join = @search.join('|');
- my $rx = rx{ ^ <{$join}> };
- @array.grep( * ~~ $rx ).map( *.put )
您需要单独创建连接字符串,它将评估每个匹配的数组连接.但基本上可以在不使用EVAL的情况下为您提供所需的内容.