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