perl - Perl で 2 つではなく 1 つのハッシュ参照を使用する

Question

Perl で、2 行目に k を 1 回だけ指定できる方法はありますか。

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

Answer 1

Yes:

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

But that's not any better (worse, IMO), so I'd stick with what you have.

Answer 2

CPAN モジュールにあるmappとを使用します。greppList::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 };