只有创造Perl的哈希键/值对当值定义

Question

我希望在只有当我有一个定义的值来分配散列创建一个键/值对。

我目前这样做：

$hash{key1} = $val1 if defined $val1; 

这是好的 - 但是当$val1是复杂的可以成为恼人。有没有一种方法，我可以整齐地得到相同的结果，而不必说$val1两次？下面的测试脚本可能有助于澄清我试图达到的目标。

use strict; 
use warnings; 
use Test::More tests => 1; 

my %hash; 
my $val1 = undef; # Explicitly undef 
my $val2 = 10; 
$hash{key1} = $val1 if defined $val1; 
$hash{key2} = $val2 if defined $val2; 
my %expected = ('key2', 10); 
is_deeply(\%hash, \%expected, 'Hashes compare'); 

Answer 1

写子程序。

set(\%hash, $key1, $val1); 
set(\&hash, $key2, $val2); 

sub set { 
    my $hash = shift; 
    my $key = shift; 
    my $val = shift; 

    $hash->{$key} = $val if defined $val; 
} 

Answer 2

如果你有很多这样的价值观来检查，你可以使用grep /列表：

use strict; 
use warnings; 
my %hash; 
my $val1 = undef;  
my $val2 = 10; 
$hash{$_->[0]} = $_->[1] for grep { defined $_->[1] } 
    ['key1', $val1], ['key2', $val2]; 

或者你可以盲目地填充它后过滤哈希：

$hash{key1} = $val1; 
$hash{key2} = $val2; 
%hash = map { $_, $hash{$_} } grep { defined $hash{$_} } keys %hash;