我想过滤以以下元素@array开头的元素@search:
my @array = "aaaaa" .. "fffff";
my @search = "aaaa" .. "cccc";
.put for @array .grep: /^ @search /;
问题是需要19秒.所以,我"预编译"的regex对grep,整个程序是这样的:
my @array = "aaaaa" .. "fffff";
my @search = "aaaa" .. "cccc";
my $search = "/@search.join('|')/".EVAL;
.put for @array .grep: * ~~ /^ <$search> /;
现在需要0.444秒.
问题:是否有内置的Perl 6方法来做这些事情？像插入junction一个regex......
假设我们有一个规则的屈折模式,不能分割成段.例如,它可以是中缀(在单词内添加一些字母)或元音更改('ablaut').考虑德国人的一个例子.
my @words = <Vater Garten Nagel>;
my $search = "/@words.join('|')/".EVAL;
"mein Vater" ~~ $search;
say $/; # ?Vater?
所有三个德语单词都通过将第二个字母'a'更改为'ä'而形成复数.所以'Vater'→'Väter','Garten'→'Gärten','Nagel'→'Nägel'.
有没有办法修改我的$search正则表达式,以便它匹配复数形式？这是我正在寻找的:
my $search_ä = $search.mymethod;
"ihre Väter" ~~ $search_ä;
say $/; # ?Väter?
当然,我可以修改@words数组并将其"预编译"成新的regex.但最好(如果可能的话)regex直接修改现有的.
这就是我想要做的.它应该很简单,但我无法弄清楚如何正确地做到这一点.
> my @search_keys = <bb cc dd>
[bb cc dd]
> my $search_junc = @search_keys.join('|')
bb|cc|dd
> "bb" eq $search_junc
False