Variable als subname: Subroutine funzt ned - #75776 (Allgemeines zu Perl)

Froschpopo

2007-04-10 13:04

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ich würds vorher wenigstens mit exists verifizieren:

Code: (dl )

my %subrefs = (
   name => \&func
);

if (exists $subrefs{$var}) {
   &{$subrefs{$var}};
} else {
   print "Funktion existiert nicht\n";
}