다른 펄 스크립트에서 8 개의 매개 변수를 가진 서브 루틴을 호출하는 방법

Question

다른 펄 스크립트 (sample.pl)에서 8 개의 매개 변수를 갖는 서브 루틴을 내 perl 스크립트 (sample1.pl)에서 호출하려고합니다. 이 오류가 발생합니다. 오류는 어떻게

sample1.pl에게

require 'sample.pl'; 
use strict; 
use warnings; 
my $sa = main_prgm(); 
sub main_prgm { 
    eval(callng_prgm(10,12,15,14,16,12,12,12)); 
} 

sample.pl을 수행하는 날을 제안 해주십시오 수

"sum of 8 numbers is 0Illegal character in prototype for main::callng_prgm : $a,$b,$c,$d,$e,$f,$g,$h at D:/workspace/sdff/sample.pl line 4. 
Use of uninitialized value $b in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $a in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $c in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $d in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $e in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $f in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $g in addition (+) at D:/workspace/sdff/sample.pl line 6. 
Use of uninitialized value $h in addition (+) at D:/workspace/sdff/sample.pl line 6. 
" 

로 표시됩니다

use strict; 
use warnings; 
our ($a,$b,$c,$d,$e,$f,$g,$h); 
sub callng_prgm ($a, $b, $c, $d, $e, $f, $g, $h) { 
    my $z = ($a+$b+$c+$d+$e+$f+$g+$h); 
    print "sum of 8 numbers is $z"; 
} 
1; 

Answer 1

다음과 같이 서브를 정의하십시오 :

sub callng_prgm 
{ 
    my ($a,$b,$c,$d,$e,$f,$g,$h) = @_ 
    my $z= ($a+$b+$c+$d+$e+$f+$g+$h); 
    print "sum of 8 numbers is $z"; 
} 

Answer 2

왜 자신을 8 개의 매개 변수로 제한합니까? 이것은 어떤 수의 매개 변수와도 작동합니다.

#!/usr/bin/perl 

use strict; 
use warnings; 
sub callng_prgm 
{ 
    my $z; 
    foreach (@_) {$z += $_}; 
    print $z; 
} 
callng_prgm(10,12,15,14,16,12,12,12);