将字符串内容评估为哈希 p 时捕获错误

Question

我正在尝试将存储在字符串中的哈希定义转换为实际的哈希。这与 eval() 函数配合得很好。

然而，当错误的哈希定义存储在字符串中时，我希望能够捕获错误。

为什么我无法捕获/捕获第 9 行中发生的错误？

#!/usr/bin/perl
use warnings;
use strict;

my $good_hash = "( 1 => 'one', 2 => 'two')";
my $bad_hash = "[ 1 => 'one', 2 => 'two')";

eval{my %string = eval($good_hash)} or &error;
eval{my %string = eval($bad_hash)} or &error;


sub error(){
        print "error\n";
}

Answer 1

eval 操作可能会引发错误或警告。
来自 eval 的错误消息存储在 $@ 变量中。如果没有抛出错误，$@ 将是一个空字符串。
但是，警告消息不会存储在 $@ 变量中。您可以使用 $SIG{__WARN__} 处理警告。

我认为在你的情况下， eval 会发出警告。处理它的一种方法是执行以下操作：

#!/usr/bin/perl
use warnings;
use strict;

BEGIN { $SIG{'__WARN__'} = sub { error ($_[0]); }}

my $good_hash = "( 1 => 'one', 2 => 'two')";
my $bad_hash = "[ 1 => 'one', 2 => 'two')";

eval{my %string = eval($good_hash)}; error($@) if ($@);
eval{my %string = eval($bad_hash)};  error($@) if ($@);


# sub error will be called both in case of errors and warning.
sub error
{
    my ($msg ) = @_;
        print "Error/ warning message - $msg\n";
}

这是简单的代码示例，可以根据您的要求进行改进。

Answer 2

您无法捕获“错误”，因为它只是警告，而不是错误。

您是否必须使用 Perl 哈希，或者可以使用 json、xml 甚至 Storable 来存储数据？

Answer 3

一种更简单的可视化方法是记住 eval 执行表达式或代码块。给它一个完整的表达式使事情更容易理解：

#!/usr/bin/perl
use warnings;
use strict;

my $good_hash = "\%string = ( 1 => 'one', 2 => 'two')";
my $bad_hash  = "\%string = [ 1 => 'one', 2 => 'two')";

my %string;

eval $good_hash;
if ($@) {
  error("can't process good_hash: $@");
}

eval $bad_hash;
if ($@) {
  error("can't process bad_hash: $@");
}

sub error {
  my $msg = shift;
  print "error: $msg\n";
}

注意 %string 的预先声明，两个字符串如何包含完整的 perl 表达式以及我们如何查看 $@ 以了解实际的错误是什么。

Answer 4

您的错误子应该打印 "error $@" 因为 $@ （又名 $EVAL_ERROR 通过 English) 告诉您是什么错误导致 eval 结束。您不能只打印出字符串 "error" 并期望 Perl 知道您想要打印错误。

Answer 5

我建议您在评估字符串之前使用正则表达式来测试字符串，

例如：

if($hash =~ /^\((\s?[a-z0-9]+\s?=>\s?'[a-z0-9]*'\s?,?)*\)$/){
eval{my %string = eval($hash)};
} else {&error;}

这也应该有助于防止执行无效的输入，这可能会导致系统上发生不好的事情......