Как отключить автовивитацию в Perl?

Question

Предположим, что у вас есть ОГРОМНОЕ приложение «Разработано»;) большой командой. Вот упрощенная модель потенциального бедствия, которое может произойти, когда кто-то слишком глубоко проверяет структуру данных. Если невозможно полностью отключить автовизацию или в области действия, как обойти это? Большое спасибо :) !!!!

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.

Может быть, если я реализую хороший метод FETCH, который проверяет глубину проверки в структуре, я легко решаю мою проблему?

---

Я смотрел на 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 хорош для больших приложений тоже, вам просто нужно знать больше;).

Спасибо всем! Я надеюсь, что это тоже поможет другим.

Answer 1

Возможно, вы захотите использовать объект вместо хэша (см. Moose) или используйте strict tied hash. Или вы можете включить предупреждения в ошибки, если вы действительно хотите:

use warnings NONFATAL => 'all', FATAL => 'uninitialized'; 

Answer 2

Вы можете заблокировать хэш с помощью одной из функций из Hash::Util (основной модуль).

use Hash::Util qw(lock_keys unlock_keys); 

my $some_ref = { akey => { deeper => 1 } }; 
lock_keys %$some_ref; 

print "too deep" if $some_ref->{deep}{shit} == 1; 

Теперь последнее утверждение будет сгенерировано исключение:

Attempt to access disallowed key 'deep' in a restricted hash 

Недостатком является то, конечно, что вы должны быть очень осторожны при проверке ключей в хэш, чтобы избежать исключения, т. е. использовать ключ «if exists ...» для проверки ключей перед их доступом.

Если вам нужно добавить ключи к хэш позже вы можете разблокировать:

unlock_keys %$some_ref; 
$some_ref->{foo} = 'bar'; # no exception 

Answer 3

Я upvoted @zoul, но вы должны принять это один шаг дальше.

Запись Тесты

Вы должны иметь свой код, охватываемые с тестами, и вы должны запустить некоторые из этих тестов с

use warnings FATAL => 'uninitialized'; 

объявлен в самом тестовом случае. Это единственный способ решить проблему, с которой вы сталкиваетесь с разработчиками, не проверяя заранее. Убедитесь, что их код проверен.

И сделайте еще один шаг вперед, и попробуйте провести тесты под номером Devel::Cover, чтобы получить отчет о покрытии.

cover -delete 
PERL5OPT='-MDevel::Cover' prove -l 
cover -report Html_basic 

А затем проверьте строки кода и утверждения выполняется с помощью тестов, в противном случае делает эти предупреждения со смертельным исходом будет просто сделать код умереть в неожиданное время спустя.

Answer 4

Другим вариантом является использование Data::Diver для доступа к вашим структурам данных.

if(1 == Dive($some_ref, qw/ deep structures are not autovivified now /) { 
    Do_Stuff(); 
} 

Answer 5

Относительно новым является модуль autovivification, который позволяет это сделать:

no autovivification; 

Довольно просто.