perl – 只有在存在的情况下才能从hash中分配值的最简洁方法？

发布时间：2020-12-15 23:20:23 所属栏目：大数据来源：网络整理

导读：我发现自己经常编写这样的代码： if ($optionalParamsRef-{verbosity}) { $settingsHash{verbosity} = $optionalParamsRef-{verbosity};} 但是,重复$optionalParamsRef- {verbosity}两次似乎非常冗长.有更短的方式吗？编辑：是的,我意识到这是检查真/假而不

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

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});
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!