Как создать динамическое имя подпрограммы в Perl

Question

Я хочу, чтобы создать динамическое имя подпрограммы в Perl, вот пробный код, я получаю ошибку «Bad имя после feed_load ::»

#!/usr/bin/perl 
use strict; 
use warnings; 

BEGIN { 
     push @INC, '/freespace/attlas/data/bin/genericLoader /FeedLoaderLib/' 
} 

use feed_load; 
my type ="L"; 
my $tempTablefunct = "Create".$type."Temp_Table"; 

feed_load::&$tempTablefunct->($tablename); ### pass a dynamic sub name HERE ### 

Answer 1

&{ $pkg_name."::".$sub_name }(@args) 

или

($pkg_name."::".$sub_name)->(@args) 

Они будут терпеть неудачу, однако, потому что вы просили Perl запретить вам делать это путем размещения use strict; в вашей программе. Вы можете отключить use strict; локально

my $ref = do { no strict 'refs'; \&{ $pkg_name."::".$sub_name } }; 
$ref->(@args) 

Но оказывается, что \&$sub_name уже освобождены от стриктур.

my $ref = \&{ $pkg_name."::".$sub_name }; 
$ref->(@args) 

---

Если вместо суб вызова, вам необходимо вызова метода, вы можете использовать

my $ref = $o->can($method_name); 
$o->$ref(@args) 

или просто

$o->$method_name(@args)