Das einfachste dürfte sein, in
English das Array
@EXPORT zu durchsuchen: Da stehen sie alle drin - allerdings meistens als Globs, d.h.
$REAL_USER_ID findest Du als
*REAL_USER_ID. Es gibt zwei Ausnahmen, so dass das einfachste sein dürfte, das Sigil gar nicht zu berücksichtigen.
use English;
use List::Util qw( first );
sub is_perlvar {
my ($var) = @_;
!!(first { substr($var,1) eq substr($_,1) } @English::EXPORT;)
}
Last edited: 2024-01-05 18:59:27 +0100 (CET)