2

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

$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） 第 2 - 根据“外部”（Lee2000a，Forrest1996）结构键 第 3 - 根据“内部”结构键（摘要、作者、标题、年份）按字母顺序排列。

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

I. 代码符合第 2 条和第 3 条标准

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

二、代码满足第一个条件

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";
  }
}

非常感谢你

4

2 回答 2

8

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

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

此示例将按@unsortedkey对哈希进行排序c1，然后，如果此比较相等，则按 key c2。

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

(($bibliography{$a}->{year} || 0) <=> ($bibliography{$b}->{year} || 0)) ||
($a cmp $b)
于 2012-12-10T13:26:39.677 回答
2

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

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

我们想要对哈希进行排序，排序条件包括键和嵌套在值中的东西。要进行 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 个属性 - akey和 a 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'
 );
于 2012-12-10T13:35:29.433 回答