Perl Strings as function references

Question

I'm not sure if the title is exactly right. What I'm trying to do is this (I've already gotten the database handle from DBI):

my $idcenter = 4;
my $getCenter = $dbh->prepare(
<<SQLEND
select * from center
where uidcenter = ?
SQLEND
);

my @tables = ("Center");
foreach $table (@tables) {
    my $func = "get$table";
    $func->bind_param(1, $idcenter);
    etc.
}

So, how do I construct a variable that points (? is that right?) to a function? Is there a way?

Miller · Accepted Answer · 2014-04-14 21:22:00Z

3

You use a hash

my %get_table = (
    center => $getCenter,
);

$get_table{"center"}->bind_param(1, $idcenter);

answered Apr 14, 2014 at 21:22

Miller

35.3k4 gold badges42 silver badges61 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

horndinkle Over a year ago

Oh, thank you! I was using a hash table before, but I didn't put the dollar sign in front of getCenter.

Miller Over a year ago

Make sure you have use strict; and use warnings; at the top of each and every perl script. If you did and you forgot that dollar sign, perl would give you the following helpful error: Bareword "getCenter" not allowed while "strict subs" in use

Collectives™ on Stack Overflow

Perl Strings as function references

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related