相关疑难解决方法(0)

如何在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 );
Run Code Online (Sandbox Code Playgroud)

这输出如下:

$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
                    }
        };
Run Code Online (Sandbox Code Playgroud)

是的,我知道有警告,但......可能为时已晚.

嘿伙计们,我的hashref引用一个绑定的HASH可能会有所帮助.

可能如果我实现了一个好的FETCH方法来检查结构中更深层次的检查,我会轻易解决我的问题吗? …

perl autovivification

8
推荐指数
3
解决办法
4660
查看次数

标签 统计

autovivification ×1

perl ×1