Question

有很多关于如何check if a hash is empty的参考资料。我在以下脚本中尝试了所有这些：

use strict;
use warnings;
use Data::Dumper;
   $Data::Dumper::Sortkeys = 1;

# Signals come...
my %items = (
    item_1 => {signal_1 => 'up',
               signal_2 => 'down',
               signal_3 => 'up',
              },
    item_2 => {signal_1 => 'down',
              },
    item_3 => {signal_1 => 'up',
               signal_3 => 'down',
               signal_4 => 'down',
               signal_5 => 'down',
              },
  );

# ... and signals go:
delete $items{'item_2'}->{'signal_1'};
# and sometimes all signals are gone from an item:
print Dumper(\%items);
# in that case we would like the signal count to show 0 (zero).
my %signals;
foreach my $item (sort keys %items){
  #$signals{$item} = 0;
  foreach my $signal (sort keys %{$items{$item}}){
    if   (not %{$items{$item}}) {print "HERE\n"; $signals{$item} = 0}
    elsif($items{$item}->{$signal} eq 'up')  {$signals{$item}++}
    elsif($items{$item}->{$signal} eq 'down'){$signals{$item}--}
  }
}
# unfortunately the item disappears completely!
print Dumper(\%signals);

似乎迭代器完全跳过空哈希。我产生正确结果的唯一方法是将每个计数启动为零（注释掉）并让它由非空哈希值递增/递减。

为什么...... ???

Answer 1

如果散列中没有键，则keys将返回空列表()。当您在空列表上使用foreach进行迭代时，将永远不会调用循环体。因此永远无法联系到print "HERE"。这是正确的。

foreach (()) {
    print "foo";
}

__END__
(no output)

Perl的自动生成在您第一次使用时为您创建哈希值，并且当您对它们进行数学运算时，值将以0开始。这就是为什么你可以在条件内循环中添加和减去它们的原因。

为了让它发挥作用，你已经用注释掉的线做了正确的事情。

foreach my $signal (sort keys %{$items{$item}}){
    $signals{$item} = 0;
    if ( ...

现在首先将每个键初始化为0。这样就像上面所描述的那样隐式地做，它只是每次都这样做。

为什么检查散列是否为空失败？

1 个答案: