Perl Eval中的警告

Question

我需要在eval中隐藏警告，但其余代码应该继续发出警告消息。 这是我的 -

eval "\$value = $hash->{key}";

现在$ hash的值 - > {key}可以是一个函数调用，如：

$hash->{key} = "function(0.01*$another_var)";

$another_var是undef （或"" ）时出现问题。 该脚本只是通过以下消息进行解析 -

参数“”在（eval 1381）第1行的乘法（*）中不是数字。

有什么建议我可以避免这个吗？ 我想的一个选择是解析括号内的值并首先评估它，但它与我正在处理的数据相当复杂。

Answer 1

将代码包装在no warnings块中。

...
{
    no warnings;
    eval "\$value = $hash->{key}";
}
...

您还可以禁用特定类别的警告。 有关任何特定警告所属类别的警告类别和perldiag的层次结构，请参阅perllexwarn 。

{
    no warnings qw(uninitialized numeric);
    eval "\$value = $hash->{key}";
}

Answer 2

你确定你不愿意这样做：

my $href;
my $somevar = 8;
$href->{foo} = sub { $somevar * 4 };
my $var = $href->{foo}->();

如果您不确定$ href - > {foo}是否是标量，代码引用等，您可以使用ref（）函数检查它，或者更好，使用Scalar :: Util :: reftype（）。

Answer 3

将哈希键更改为"function( 0.01 * ($another_var // 0) )"

$another_var // 0等价于defined($another_var) ? $another_var : 0 defined($another_var) ? $another_var : 0 。