只有創造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;