perl - 仅当哈希存在时才从哈希分配值的最简洁方法？

Question

我发现自己经常写这样的代码:

if ($optionalParamsRef->{verbosity}) {
    $settingsHash{verbosity} = $optionalParamsRef->{verbosity};
}

然而，重复 $optionalParamsRef->{verbosity}似乎很冗长。两次。有没有更短的方法？

编辑 :是的，我意识到这是在检查真/假而不是“存在”。我正在寻找的是与此等效的简洁功能。

Answer 1

请注意您正在检查 $optionalParamsRef->{verbosity}为 真 ，不是 存在 .

可能的方法:

foreach my $k (qw/verbosity param1 param2 param3/) { #Enumerate keys here
     $settingsHash{$k} = $optionalParamsRef->{$k} if exists($optionalParamsRef->{$k});
}