perl - 在 Perl 中使用一个哈希引用而不是两个

Question

在 Perl 中是否有某种方式可以让我在第二行只提到一次 k：

my %k = (a=>1, b=>2, c=>undef);
say for grep{!$k{$_}} keys %k;

Answer 1

是的：

$b or say $a while ($a,$b) = each %k

但这并没有更好（更糟糕的是，IMO），所以我会坚持你所拥有的。

Answer 2

使用mapp和grepp在 CPAN 模块中找到的List::Pairwise：

use List::Pairwise qw(grepp mapp);
my %k = (a=>1, b=>2, c=>undef);
say for mapp { $a } grepp { !$b } %k;

Answer 3

使用each：

my %k = ( a => 1, b => 2, c => undef ); 
while ( my ($i, $j) = each %k ) { say $i unless $j };