通過在Perl中傳遞參數來調用另一個函數

Question

我已經編寫了下面的代碼，用於將參數傳遞給sample.pl中的eval函數，並在另一個Perl文件sample1.pl中調用該函數。

sample1.pl：

use strict; 
use warnings; 
require 'sample.pl'; 
use subs "hello"; 
my $main2 = hello(); 
sub hello 
{ 
    print "Hello World!\n"; 
    our $a=10; 
    our $b=20; 
    my $str="sample.pl"; 
    my $xc=eval "sub{$str($a,$b)}"; 
} 

Sample.pl

use strict; 
use warnings; 
our $a; 
our $b; 
use subs "hello_world"; 
my $sdf=hello_world(); 
sub hello_world($a,$b) 
{ 
    print "Hello World!\n"; 
    our $c=$a+$b; 
    print "This is the called function from sample !\n"; 
    print "C: " .$c; 

} 1; 

我得到輸出：

Illegal character in prototype for main::hello_world : $a,$b at D:/workspace/SamplePerl_project/sample.pl line 6. 
Use of uninitialized value $b in addition (+) at D:/workspace/SamplePerl_project/sample.pl line 9. 
Use of uninitialized value $a in addition (+) at D:/workspace/SamplePerl_project/sample.pl line 9. 
Hello World! 
This is the called function from sample ! 
C: 0Hello World! 

可以u人告訴我一個解決方案如何調用一個通過傳遞參數eval的函數

Answer 1

試試這個這將幫助ü..

  my $action="your function name"; 
     if ($action) { 
      eval "&$action($a,$b)"; 
     } 

在接收功能

sub your function name { 
     my ($a,$b) =@_;#these are the arguments 
    } 

Answer 2

如何通過傳遞參數來調用通過的eval函數？

sub func { 
    print join(", ", @_), "\n"; 
    return 99; 
} 

my ($str, $a, $b) = ('func', 10, 'tester'); 
my $f = eval "\\&$str" or die $@; 
my $c = $f->($a, $b); 
print "c = $c\n"; 

但有需要使用eval。以上可以寫成

my $f = \&$str; 
my $c = $f->($a, $b); 

甚至

my $c = (\&$str)->($a, $b);