大佬教程收集整理的这篇文章主要介绍了如何优化Perl中的二维哈希遍历?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
有没有办法优化(按时)这段代码:
foreach my $cycle (sort numerically keys %signal_db) { foreach my $key (sort keys %{$signal_db{$cyclE}}) { print $signal_db{$cyclE}{$key}.$key."\n"; } }
元素必须以与我的代码相同的顺序打印.
Rate original try3 alternative alternative2 original 46.1/s -- -12% -21% -32% try3 52.6/s 14% -- -10% -22% alternative 58.6/s 27% 11% -- -13% alternative2 67.5/s 46% 28% 15% --
结论:
最好使用预先存储的存储格式,但没有C win可能在100%之内(在我的测试数据集上).提供的有关数据的信息表明,外部哈希中的键几乎是连续的数字,所以这就要求数组.
脚本:
#!/usr/bin/env perl use Strict; use warnings; use Benchmark qw/timethese cmpthese/; my %signal_db = map { $_ => {} } 1..1000; %$_ = map { $_ => $_ } 'a'..'z' foreach values %signal_db; my @signal_db = map { { cycle => $_ } } 1..1000; $_->{'samples'} = { map { $_ => $_ } 'a'..'z' } foreach @signal_db; my @signal_db1 = map { $_ => [] } 1..1000; @$_ = map { $_ => $_ } 'a'..'z' foreach grep ref $_,@signal_db1; use Sort::Key qw(nsort); sub numerically { $a <=> $b } my $result = cmpthese( -2,{ 'original' => sub { open my $out,'>','tmp.out'; foreach my $cycle (sort numerically keys %signal_db) { foreach my $key (sort keys %{$signal_db{$cyclE}}) { print $out $signal_db{$cyclE}{$key}.$key."\n"; } } },'try3' => sub { open my $out,'tmp.out'; foreach my $cycle (map $signal_db{$_},sort numerically keys %signal_db) { my $tmp = ''; foreach my $key (sort keys %$cyclE) { $tmp .= $cycle->{$key}.$key."\n"; } print $out $tmp; } },'alternative' => sub { open my $out,'tmp.out'; foreach my $cycle (map $_->{'samples'},@signal_db) { my $tmp = ''; foreach my $key (sort keys %$cyclE) { $tmp .= $cycle->{$key}.$key."\n"; } print $out $tmp; } },'alternative2' => sub { open my $out,'tmp.out'; foreach my $cycle (grep ref $_,@signal_db1) { my $tmp = ''; foreach (my $i = 0; $i < @$cycle; $i+=2) { $tmp .= $cycle->[$i+1].$cycle->[$i]."\n"; } print $out $tmp; } },} );
以上是大佬教程为你收集整理的如何优化Perl中的二维哈希遍历?全部内容,希望文章能够帮你解决如何优化Perl中的二维哈希遍历?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。