按键排序 Perl 中的哈希数组

Question

我这样定义一个哈希数组：

while (my $line = <PILEUP>) {
    if ($line =~ /INDEL/ and $line !~ /^#/) {
        chop $line;
        my @splitline = split(/\t/, $line);
        $hash2{$splitline[1]}{len} = length($splitline[4]);
        $hash2{$splitline[1]}{type} = "INDEL";
        push @{$hash1{$splitline[0]}}, %hash2;
    }
}

然后，我想按每个哈希的键对该数组进行排序：

for my $chr (keys %hash1) {
    my @sorted =  sort { $a->{ } <=> $b->{ } } @{%hash1{$chr}};
}

但是，不知道如何在此处继续。

Answer 1

我这样定义一个哈希数组：

不，你没有。你定义一个这样的数组哈希。

    chop $line;

chomp 几乎在所有情况下都是可取的。在 10 年的 Perl 编程中，我只使用过chop 作为一种好奇心。

    $hash2{$splitline[1]}{len} = length($splitline[4]);
    $hash2{$splitline[1]}{type} = "INDEL";
    push @{$hash1{$splitline[0]}}, %hash2;

在这里，您将%hash2 的键和值推送到%hash1 内的数组中。您可能想要推送哈希参考：\%hash2。但在这种情况下，您需要使其具有词法范围，否则它将多次推送相同的引用。

for my $chr (keys %hash1) {
    my @sorted =  sort { $a->{ } <=> $b->{ } } @{%hash1{$chr}};
}

这是正确的方向，只是您必须选择一个（或多个）哈希值进行排序。例如长度和类型。而且你不能使用循环。

my @sorted_keys = sort { $hash1{$a}{len}  <=> $hash1{$b}{len} ||
                         $hash1{$a}{type} cmp $hash1{$b}{type} } keys %hash1;