Question

我的结构看起来像这样（散列哈希）：

$VAR1 = {
          'Lee2000a' => {
                'abstract' => 'Abstract goes here',
                'author' => 'Lee, Wenke and Stolfo, Salvatore J'
                'title' => 'Data mining approaches for intrusion detection'
                'year' => '2000'
              },
          'Forrest1996' => {
                'abstract' => 'Abstract goes here',
                'author' => 'Forrest, Stephanie and Hofmeyr, Steven A. and Anil, Somayaji'
                'title' => 'Computer immunology'
                'year' => '1996'
                }
        };

我想根据三个条件（按此顺序）对此结构进行排序：

第1年 - 按年值（1996,2000）第二 - 根据“外部”（Lee2000a，Forrest1996）结构键第3名 - 根据“内部”结构键（摘要，作者，标题，年份）按照alpahabetical顺序。

到目前为止，我有两个代码需要以某种方式结合起来：

予。代码符合第二和第三标准

for $i (sort keys(%bibliography)){
   print "$i => ", "\n";
   for $j (sort keys ($bibliography{"$i"})){
   print "\t $j -> ", $bibliography{"$i"}{"$j"},"\n";
   }
}

II。代码满足第一个条件

for $i (sort { ($bibliography{$a}->{year} || 0) <=> ($bibliography{$b}->{year} || 0) } keys %bibliography){
  print "$i => ", "\n";
  for $j (sort keys ($bibliography{"$i"})){
    print "\t $j -> ", $bibliography{"$i"}{"$j"},"\n";
  }
}

非常感谢

Answer 1

要按某些次要条件排序，您可以使用逻辑OR：

my @sorted = sort {
                 $a{c1} <=> $b{c1} || 
                 $a{c2} <=> $b{c2}
             } @unsorted

此示例将按键@unsorted对c1中的哈希值进行排序，然后，如果此比较相等，则按键c2。

出于您的目的，您可以通过这种方式组合外部循环的两个排序比较，以便您的排序块将显示为：

(($bibliography{$a}->{year} || 0) <=> ($bibliography{$b}->{year} || 0)) ||
($a cmp $b)

Answer 2

[UPDATE] 添加了一个更简单的版本，它只是根据排序条件返回输入哈希上的键。

第一种方法：返回一个排序列表

我们想要对哈希进行排序，排序条件包括键和嵌套在值中的东西。要进行1遍排序，可以比较每个$a和$b，将转换转换为散列aa列表可以很方便地使散列中的每个键和值都可用。

有点浪费，但有效：

my @sorted = 
 sort {
    $a->{val}->{year} <=> $b->{val}->{year} ||             # 1st condition
    $a->{key} <=> $b->{key} ||                             # 2nd condition
    $a->{val}->{abstract} <=> $b->{val}->{abstract} ||     # 3rd condition
    $a->{val}->{author} <=> $b->{val}->{author} ||         # (not really sure
    $a->{val}->{title} <=> $b->{val}->{title} ||           # how you wanted this
    $a->{val}->{year} <=> $b->{val}->{year}
  } map { { val => $biblio{$_}, key => $_  }  } keys %biblio;

我们正在整理哈希;我们需要一个列表作为返回值。在哪种情况下，Forrest1996和Lee2000a适合哪里？我认为将哈希值转换为哈希值列表可能是有意义的，每个哈希值都有2个属性 - key和val。

因此排序的返回值将是这样的哈希列表：

@sorted = (
      {
        'val' => {
                   'title' => 'Computer immunology',
                   'author' => 'Forrest, Stephanie and Hofmeyr, Steven A. and Anil, Somayaji',
                   'abstract' => 'Abstract goes here',
                   'year' => 1996
                 },
        'key' => 'Forrest1996'
      },
      {
        'val' => {
                   'title' => 'Data mining approaches for intrusion detection',
                   'author' => 'Lee, Wenke and Stolfo, Salvatore J',
                   'abstract' => 'Abstract goes here',
                   'year' => 2000
                 },
        'key' => 'Lee2000a'
      }
  )

第二种方法：根据排序条件

返回一个键列表

我想，在阅读完评论并重新考虑之后，只需返回输入哈希的键就足够了，更轻松了：

my @sorted = 
  sort {
    $biblio{$a}->{year} <=> $biblio{$b}->{year} ||         # 1st condition
    $a <=> $b ||                                           # 2nd condition
    $biblio{$a}->{abstract} <=> $biblio{$b}->{abstract} || # 3rd condition
    $biblio{$a}->{author} <=> $biblio{$b}->{author}        # ...and so on
   } keys %biblio;

...只返回

 @sorted = (
      'Forrest1996',
      'Lee2000a'
 );

perl嵌套哈希多种排序

2 个答案:

第一种方法：返回一个排序列表

第二种方法：根据排序条件