Perl Strings作为函数引用

Question

我不确定标题是否完全正确。我想要做的就是这个（我已经从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.
}

那么，我如何构造一个指向函数的变量（？是对吗？）？有办法吗？

Answer 1

您使用哈希

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

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