按条件排序哈希

Question

我对perl编程有点陌生，我得到了一个可以这样表示的哈希：

$hash{"snake"}{ACB2}   = [70, 120];
$hash{"snake"}{SGJK}   = [183, 120];
$hash{"snake"}{KDMFS}   = [1213, 120];
$hash{"snake"}{VCS2}   = [21, 120];
...
$hash{"bear"}{ACB2}   = [12, 87];
$hash{"bear"}{GASF}   = [131, 87];
$hash{"bear"}{SDVS}   = [53, 87];
...
$hash{"monkey"}{ACB2}   = [70, 230];
$hash{"monkey"}{GMSD}   = [234, 230];
$hash{"monkey"}{GJAS}   = [521, 230];
$hash{"monkey"}{ASDA}   = [134, 230];
$hash{"monkey"}{ASMD}   = [700, 230];

哈希的结构总结如下：

%hash{Organism}{ProteinID}=(protein_length, total_of_proteins_in_that_organism)

我想根据某些条件对该哈希进行排序。首先，我只想考虑蛋白质总数大于100的那些生物，然后我要显示该生物的名称以及最大的蛋白质及其长度。

为此，我要采用以下方法：

    foreach my $org (sort keys %hash) {
        foreach my $prot (keys %{ $hash{$org} }) {
            if ($hash{$org}{$prot}[1] > 100) {
                @sortedarray = sort {$hash{$b}[0]<=>$hash{$a}[0]} keys %hash;

                print $org."\n";
                print @sortedarray[-1]."\n";
                print $hash{$org}{$sortedarray[-1]}[0]."\n"; 
            }
        }
    }

但是，它打印生物体名称的次数是蛋白质总数的多少倍，例如，它打印“蛇” 120次。此外，这排序不正确，因为我想我应该在排序行中使用变量$ org和$ prot。

最后，输出应如下所示：

snake
"Largest protein": KDMFS [1213]

monkey
"Largest protein": ASMD [700]

Answer 1

您在使用吗

use strict;
use warnings;

在脚本的开头？这样至少可以突出一些问题的根源。没有它们，Perl会默默地做一些很容易指出是愚蠢，毫无意义甚至最有可能的编程错误的事情。

---

作业

$hash{"snake"}{ACB2}   = (70, 120);

将仅分配值120，因为该分配需要标量，但左侧有很多值。

要分配arrayref，必须明确声明它：

$hash{"snake"}{ACB2}   = [70, 120];

---

您对信号的使用（$，@，%）似乎已关闭。

• 如果要处理标量或单个数组或哈希值，请使用$。>>
• 如果要处理数组（或数组或哈希片（多个值）；例如，@将从数组@array[0,2]返回第一和第三项），请使用@array。
• 如果要处理哈希，请使用%。

所以

@sortedarray[-1]
应该是

$sortedarray[-1]
因为您只访问一个值。

Answer 2

如果我对您的理解正确，那么下面的代码应该可以实现您所期望的。我将结果保留在哈希表中，可以随意打印任何格式的数据]

Answer 3

所有数据已排序