在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

使用CPAN模块mapp中的grepp和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 };