W jaki sposób można uzyskać Perl zatrzymać przy odwoływanie się do wartości undef?

Question

W jaki sposób uzyskać Perl zatrzymać i podać ślad stosu, gdy odwołujesz się do wartości undef, a nie tylko ostrzeżenie? Wydaje się, że use strict; nie jest wystarczający do tego celu.

Answer 1

use warnings FATAL => 'uninitialized'; 

use Carp(); 
$SIG{__DIE__} = \&Carp::confess; 

Pierwsza linia sprawia, że ​​ostrzeżenie jest śmiertelne. Następne dwa powodują śledzenie stosu, gdy twój program umiera.

Answer 2

Dołącz następująco:

use Carp(); 

Wtedy to jeden tych linii na początku pliku źródłowego:

local $SIG{__WARN__} = \&Carp::confess; 
local $SIG{__WARN__} = \&Carp::cluck; 

Linia confess da ślad stosu i linię cluck jest o wiele bardziej zwięzły.

Answer 3

Odwołanie się do wartości niezdefiniowanej nie stanowiłoby problemu samo w sobie, ale może powodować ostrzeżenia, jeśli kod oczekuje, że będzie to coś innego niż undef. (szczególnie, jeśli próbujesz użyć tej zmiennej jako odniesienia do obiektu). Można umieścić coś w kodzie, takich jak:

use Carp qw(); 

[....] 

Carp::confess '$variableName is undef' unless defined $variableName; 

[....] 

Answer 4

jeden sposób, aby te ostrzeżenia śmiertelne jest zainstalowanie obsługi sygnału dla WARN wirtualnego sygnału:

$SIG{__WARN__} = sub { die "Undef value: @_" if $_[0] =~ /undefined/ }; 

Answer 5

Zamiast niechlujne błahy z %SIG zaproponowane przez wszystkich, po prostu use Carp::Always i gotowe.

Należy zauważyć, że można wprowadzić moduły do ​​skryptu bez modyfikacji źródła, uruchamiając je za pomocą perl -MCarp::Always; ponadto można ustawić zmienną środowiskową PERL5OPT na -MCarp::Always, aby była ładowana bez zmieniania nawet wywołania skryptu. (Patrz perldoc perlrun.)

Answer 6

Musisz to zrobić ręcznie. Powyższe "odpowiedzi" nie działają! Po prostu przetestuj to:

use strict; 
use warnings FATAL => 'uninitialized'; 
use Carp(); 
$SIG{__DIE__} = \&Carp::confess; 

my $x = undef; # it would be enough to say my $x; 
if (!$x->{test}) { 
print "no warnings, no errors\n"; 
} 

Zobaczysz, że dereferencja nie spowodowała żadnych komunikatów o błędach ani ostrzeżeń. Nie wiem, w jaki sposób spowodować, by Perl automatycznie wykrył użycie undef jako nieważnego odniesienia. Podejrzewam, że jest to zgodne z projektem, dzięki czemu autovivification działa bezproblemowo.