Opened by barney at 2024-01-05 15:25
User since
2015-01-07
531 Artikel
BenutzerIn
2015-01-07
531 Artikel
BenutzerIn
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.
Last edited: 2024-01-05 18:59:27 +0100 (CET)
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.Code (perl): (dl
)
1 2 3 4 5 6
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)