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