将输入拆分为存储桶-Perl

Question

我知道如何长远地做到这一点，但我想知道是否有一种简单的方法可以将一系列数字拆分为存储桶。

我有一系列将两个数字关联在一起的数据：

频率值

我想将这些值分解为频率的各个部分，然后获得频率结果的每个跨度的成员的平均值和标准偏差，即0.05。

所以我想要的是一系列包含与频率相关联的值的数组。

我long之以鼻的方法是

%results = ();
$key = int( ( $frequency * 100 ) / 20 );
if ( !exists( $results{$key} ) ) {
    @temp = ($value);
    $results{$key} = @temp;
} else {
    $results{$key} = push( $results{$key}, $value );
}

有没有一种方法可以简化此过程？

Answer 1

看起来您实际上想要的是哈希数组。

因此，您只需要push ：

push @{ $results{$key} }, $value;

有关此类概念的更多信息，请查看Perl Data Structures Cookbook 。

Answer 2

尝试从哈希表中获取数据时，只需检查是否存在。 将数据添加到表中时无需执行此操作。 另外，您不需要在数组上放置临时名称。 您可以通过将[]放在数字列表周围来创建匿名数组。 您也可以使用{}进行匿名哈希处理，但这与该问题没有直接关系。

my %results;    #will store data like $results{$frequency} = [list of values]
# storing data:
my $key = int( ( $frequency * 100 ) / 20 );
push @{$results{$frequency}}, $value;           #the @{ } means interpret $results{$frequency} as an array
# fetching data, here is where you check if things exist, sometimes
foreach (keys %results) {
    print "For $_ frequency...\n";
    print "The values are: @{$results{$_}}\n\n";    #if you don't include @{ }, it will say ARRAYREF(0xsdfasdf)
}