Perl   发布时间:2022-04-07  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了perl6 – 使用Perl 6中的另一个数组的元素过滤数组的元素大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
我想过滤以@search元素开头的@array元素: @H_219_2@my @array = "aaaaa" .. "fffff"; my @search = "aaaa" .. "cccc"; .put for @array .grep: /^ @search /;

问题是需要19秒.所以,我‘precompile’ grep的正则表达式,整个程序看起来像这样

@H_219_2@my @array = "aaaaa" .. "fffff"; my @search = "aaaa" .. "cccc"; my $search = "/@search.join('|')/".EVAL; .put for @array .grep: * ~~ /^ <$search> /;

现在需要0.444秒.

问题:是否有内置的Perl 6方法来做这些事情?将结点插入正则表达式…

解决方法

@H_219_2@my @array = "aaaaa" .. "fffff"; my @search = "aaaa" .. "cccc"; my $join = @search.join('|'); my $rx = rx{ ^ <{$join}> }; @array.grep( * ~~ $rx ).map( *.put )

您需要单独创建连接字符串,它将评估每个匹配的数组连接.但基本上可以在不使用EVAL的情况下为您提供所需的内容.

大佬总结

以上是大佬教程为你收集整理的perl6 – 使用Perl 6中的另一个数组的元素过滤数组的元素全部内容,希望文章能够帮你解决perl6 – 使用Perl 6中的另一个数组的元素过滤数组的元素所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。