如何在Perl中禁用自动激活?

假设您有一个大团队“开发”了一个巨大的应用程序。 这里是一个简化的潜在灾难模型,当有人对数据结构进行过深的检查时,可能会发生这种情况。 如果不能完全或在范围内禁用自动振动,如何解决这个问题? 非常感谢:)!!!!!

use strict; use warnings;use Data::Dumper;

my $some_ref = {akey=>{deeper=>1}};
print Dumper($some_ref );
if($some_ref->{deep}{doot} == 1){
    print 'too deep '.$/;
}

if($some_ref->{deep}){
    print 'Already in a deep doot'.$/;
}

print Dumper($some_ref );

输出如下:

$VAR1 = {
          'akey' => {
                      'deeper' => 1
                    }
        };
Use of uninitialized value in numeric eq (==) at autovivify_test.pl line 5.
Already in a deep doot
$VAR1 = {
          'deep' => {},
          'akey' => {
                      'deeper' => 1
                    }
        };

是的,我知道有警告,但是…可能太晚了。

嘿,伙计们,说我的hashref引用了一个绑定的hash可能会有所帮助。

如果我实现一个好的获取方法来检查结构中更深层的检查,我会很容易地解决我的问题吗?

我看着 Tie::StrictHash , Tie::Hash 和 perltie . 以下是我的解决方案的简化版本:

#!/usr/bin/env perl;
#test_tie.pl

package StrictHash;
use strict; use warnings;
use Tie::Hash;
our @ISA = qw(Tie::StdHash);
use Carp;

sub TIEHASH {
    my $class = shift;
    my $hash = bless {@_}, $class;
    return $hash;
}
##========================================================================
## FETCH fails if applied to a member that doesn't exist.
##========================================================================
sub FETCH {
    my ($hash, $key) = @_;
    Carp::confess "key '$key' does not exist" unless exists $hash->{$key};
    return $hash->{$key};
}
##========================================================================
package main;
use strict;use warnings;use Data::Dumper;
#Imagine StrictHash is in ./StrictHash.pm
#use StrictHash;
my %hash;
tie %hash, 'StrictHash', akey => {deeper=>1} ;  

my $some_ref =\%hash;
print Dumper($some_ref );
if($some_ref->{deep}{doot} == 1){
    print 'too deep '.$/;
}

我所取得的成就是只触摸应用程序中的一个位置。 现在,所有的地方,比如if($some-ref->deep doot),都会导致带有堆栈跟踪的死亡。 所以我很容易找到它们并改正它们。 这样的新作品是不可能的。 Perl也适用于大型应用程序,您只需了解更多;)。

谢谢大家! 我希望这也能帮助别人。