有没有一种安全的方法来使用eval在Perl中解开Data :: Dumper输出？

Question

我有一个使用冻结数据的对象:

sub frozen_data {
    my $self = shift;

    $Data::Dumper::Indent = 0;
    $Data::Dumper::Terse  = 1;
    return Data::Dumper->Dump( [ $self->{_DATA}, ] );
}

和相应的解冻:

sub thaw_data {
    my ($self) = @_;

    $self->{_DATA} = eval $self->{DATA};
}

这似乎运作良好,有任何问题吗？我也试过通过perlcritic来运行它,我得到了这个:

Expression form of "eval" at line 69, column 22.  See page 161 of PBP.  (Severity: 5)

写这个的更好的方法是什么？

Answer 1

你告诉Perl Critic STFU :)

 $self->{_DATA} = eval $self->{DATA}; ## no critic

有时你需要做的事情通常只是一种不好的做法.

Answer 2

如果你正在解冻Data :: Dumper的输出,那就没办法了.另一种选择是可存储.

如果您接受不受信任的输入并将其取消选中eval,则应立即重新设计此机制,因为它会使前门敞开.对于编组内部数据,我不会说出警告.

Answer 3

只要您知道该数据的唯一来源是您自己使用Dumper创建的冻结数据,那么您没问题.

另一种方法是使用Dumper以外的东西,例如Storable.

Answer 4

确定要允许或禁止的内容并设置安全隔离专区并使用其reval方法.