Prüfen ob eine Subroutine vorhanden ist? - #81944 (Allgemeines zu Perl)

2004-04-30 21:27

User since
2003-08-04
12208 Artikel
Admin1

ähm... wieso nicht ganz einfach:

Code: (dl )

1
2
3

if (main->can('name_der_sub')) {}
# oder
if (Package::Name->can('name_der_sub')) {}

?

edit: can() liefert praktischerweise auch noch die subroutine,
also:

Code: (dl )

1
2
3

if (my $sub = main->can('name')) {
  $sub->($parameter);
}

\n\n

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem