Perl字符串作为函数参考

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);