假设我在 Perl 中有 2 个函数。我将创建这两个函数的引用数组。& 在命令行参数中,我将只传递调用特定函数的数组索引,如果我不提供任何参数,那么它将调用数组中引用的所有函数(默认情况)。
那么,任何人都可以帮助我做到这一点吗?
## Array content function pointers
my @list= {$Ref0,$Ref1 }
my $fun0Name = “fun0”;
my $Ref0 =&{$fun0Name}();
my $fun1Name = “fun1”;
my $Ref1 =&{$fun1Name}();
#### Two functions
sub fun0() {
print "hi \n";
}
sub fun1() {
print "hello \n";
}
##### Now in cmd argument if i passed Test.pl -t 0(index of array ,means call to 1st function)
##### if i give test.pl -t (No option ) ....then i call both function.