是否可以使用while(my($ key,$ value)...){}方法按排序顺序迭代哈希？

Question

对于此格式的哈希:

my $itemHash = {
    tag1 => {
        name => "Item 1",
        order => 1,
        enabled => 1,
    },
    tag2 => {
        name => "Item 2",
        order => 2,
        enabled => 0,
    },
    tag3 => {
        name => "Item 3",
        order => 3,
        enabled => 1,
    },
    ...
}

我有这个代码正确迭代哈希:

keys %$itemHash; # Resets the iterator
while(my($tag, $item) = each %$itemHash) {
    print "$tag is $item->{'name'}"
}

但是,迭代这些项的顺序似乎很随机.是否可以使用相同的while格式按照每个项目的哈希中"order"键指定的顺序迭代它们？

(我知道我可以先对键进行排序,然后再循环遍历它.只是想看看是否有更简洁的方法来执行此操作.)

Answer 1

"有序哈希"的概念是错误的.虽然数组是元素的有序列表,因此可以通过索引访问,但是散列是键值对的(无序)集合,其中键是一组.

要完成任务,您必须按order属性对键进行排序:

my @sorted = sort {$hash{$a}{order} <=> $hash{$b}{order}} keys %$itemHash;

然后,您可以通过map以下方式创建键值对:

my @sortedpairs = map {$_ => $itemHash->{$_}} @sorted;

我们可以把它包装成一个子:

sub ridiculousEach {
  my %hash = @_;
  return map
      {$_ => $hash{$_}}
        sort
          {$hash{$a}{order} <=> $hash{$b}{order}}
             keys %hash;
}

获得一个大小合适的键值元素列表,以及

sub giveIterator {
  my %hash = @_;
  my @sorted = sort {$hash{$a}{order} <=> $hash{$b}{order}} keys %hash;
  return sub {
     my $key = shift @sorted;
     return ($key => $hash{$key});
  };
}

创建一个回调,它是每个回调的一个插件.

然后我们可以这样做:

my $iterator = giveIterator(%$itemHash);
while (my ($tag, $item) = $iterator->()) {
  ...;
}

这种方法存在严重的缺点:一次each只使用两个元素,因此在恒定的存储器中运行.此解决方案必须读取整个哈希并存储所有键的数组.对于小哈希来说不明显,这对于非常大量的元素来说非常重要.

Answer 2

你可以做一些事情:

foreach my $key (sort keys %{$itemHash}) {
    print "$key : " . $itemHash->{$key}{name} . "\n";
}

Answer 3

散列中的键未定义的顺序.所以你需要对键进行排序.正如你所说的那样,一种方法是将键拉出并对它们进行排序,然后循环键.

另一种方法是动态排序.我不确定你会认为它更干净.就像是:

for my $key ( sort { $itemHash->{$a}{order} <=> $itemhash->{$b}{order} } keys %$itemHash ) {
  print "$key is $itemHash->{$key}{name}";
}