我发现自己经常编写这样的代码：
if ($optionalParamsRef->{verbosity}) {
$settingsHash{verbosity} = $optionalParamsRef->{verbosity};
}
但是,重复$optionalParamsRef-> {verbosity}两次似乎非常冗长.有更短的方式吗？
编辑：是的,我意识到这是检查真/假而不是’存在’.我正在寻找的是与此相当的简洁功能.
解决方法
请注意,您检查$optionalParamsRef-> {verbosity}是否为true,不存在.
可能的方法：
foreach my $k (qw/verbosity param1 param2 param3/) { #Enumerate keys here
$settingsHash{$k} = $optionalParamsRef->{$k} if exists($optionalParamsRef->{$k});
}