2012-08-02T11:22:06 Muffi

Vielleicht ist es meinen Hirn auch grad zu heiss, aber

Code (perl): (dl )

defined &CONSTANT_NAME

returnt doch den Wert der Konstante und checkt auf defined.

1
2
3
4
5
6
7
8
9
10
11
12

use strict;
use warnings;
use v5.010;

use constant FOO => 23;
sub BAR { say 23 }
use constant OOF => undef;

say "FOO" if defined &FOO;
say "BAR" if defined &BAR;
say "NONE" if defined &NONE;
say "OOF" if defined &OOF;

1
2
3

FOO
BAR
OOF

Quote

You may also use "defined(&func)" to check whether subroutine &func has
ever been defined.

Quote

Zum testen obs die Konstante gibt hätt ich jetzt

Code (perl): (dl )

defined \&CONSTANT_NAME

gesagt

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem