Wie können Sie Perl zu stoppen erhalten, wenn ein undef Wert werben?

Question

Wie Sie Perl bekommen zu stoppen und einen Stack-Trace zu geben, wenn Sie einen Wert undef verweisen, anstatt nur warnen? Es scheint, dass use strict; für diesen Zweck nicht ausreichend ist.

Answer 1

use warnings FATAL => 'uninitialized';

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

Die erste Zeile macht die Warnung tödlich. Die nächsten zwei Ursachen ein Stack-Trace, wenn Ihr Programm stirbt.

Answer 2

Statt das chaotisch mit %SIG Hantieren von jedermann vorgeschlagen anderem, nur use Carp::Always und durchgeführt werden.

Beachten Sie, dass Sie Module in ein Skript ohne Quellen Modifikationen einfach indem sie sie mit perl -MCarp::Always läuft injizieren kann; Des Weiteren können Sie die PERL5OPT Umgebungsvariable auf -MCarp::Always setzen es sogar ohne Änderung der Aufruf des Skripts geladen zu haben. (Siehe perldoc perlrun .)

Answer 3

Fügen Sie diese:

use Carp ();

Dann sind ein diese Zeilen am Anfang der Quelldatei:

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

Die confess Linie wird ein Stack-Trace geben, und die cluck Linie ist viel mehr lapidar.

Answer 4

Eine Möglichkeit, diese Warnungen fatal zu machen, ist ein Signal-Handler für das WARN virtual-Signal zu installieren:

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

Answer 5

würde ein undef Wert Referenzierung kein Problem an sich sein, aber es kann Warnungen verursachen, wenn Ihr Code erwartet, dass es etwas anderes als undef zu sein. (Vor allem, wenn Sie versuchen, diese Variable als Objekt Referenz zu verwenden). Sie könnten etwas in Ihrem Code setzen, wie:

use Carp qw();

[....]

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

[....]

Answer 6

Sie müssen dies manuell tun. Die oben genannten „Antworten“ funktionieren nicht! Testen Sie einfach dies:

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";
}

Sie werden sehen, dass dereferencing keine Fehlermeldungen oder Warnungen nicht verursacht. Ich kenne keine Möglichkeit der Verursachung Perl automatisch die Verwendung von undef als eine ungültige Referenz zu erfassen. Ich vermute, dass dies so ist konstruktionsbedingt, so dass autovivification arbeitet nahtlos.