perl – 是否可以使用while(my($key,$value)…){}方法按排序顺序

发布时间：2020-12-15 23:29:56 所属栏目：大数据来源：网络整理

导读：对于此格式的哈希： my $itemHash = { tag1 = { name = "Item 1",order = 1,enabled = 1,},tag2 = { name = "Item 2",order = 2,enabled = 0,tag3 = { name = "Item 3",order = 3,...} 我有这个代码正确迭代哈希： keys %$itemHash; # Resets the iteratorwh

对于此格式的哈希：

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

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

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

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

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

解决方法

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

要完成任务,您必须按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->()) {
  ...;
}

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!