大佬教程收集整理的这篇文章主要介绍了在Perl中访问字符串中的单个字符时,是否更快地进行子网划分或拆分?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
那么,使用substr一次提取一个字符是否更快,或者将字符串拆分为数组然后迭代数组更快?
在我等待答案时,我想我会读到如何在Perl中对事物进行基准测试.
Perl为这类东西提供了Benchmark模块,使用它非常简单.这是一个开始使用的示例代码:
#!/usr/bin/perl use Strict; use warnings; use Benchmark qw(cmpthese); my $dna; $dna .= [qw(G A T C)]->[rand 4] for 1 .. 100; sub frequency_substr { my $length = length $dna; my %hist; for my $pos (0 .. $length) { $hist{$pos}{substr $dna,$pos,1} ++; } \%hist; } sub frequency_split { my %hist; my $pos = 0; for my $char (split //,$dna) { $hist{$pos ++}{$char} ++; } \%hist; } sub frequency_regmatch { my %hist; while ($dna =~ /(.)/g) { $hist{pos($dna)}{$1} ++; } \%hist; } cmpthese(-5,# Run each for at least 5 seconds { substr => \&frequency_substr,split => \&frequency_split,regex => \&frequency_regmatch } );
并得到一个样本结果:
Rate regex split substr regex 6254/s -- -26% -32% split 8421/s 35% -- -9% substr 9240/s 48% 10% --
原来,substr的速度惊人.
以上是大佬教程为你收集整理的在Perl中访问字符串中的单个字符时,是否更快地进行子网划分或拆分?全部内容,希望文章能够帮你解决在Perl中访问字符串中的单个字符时,是否更快地进行子网划分或拆分?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。