How to call a subroutine which is having 8 parameters in another perl script

Question

I am trying to call subroutine having 8 parameters in another perl script(sample.pl) from my perl script(sample1.pl). i am getting this error. Error is shown as

"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.
"

can you please suggest me how to do this

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

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;

Prototypes in Perl are not required, and do not work the same way as other languages, so do not use them unless you know what they do. (Prototypes is what is contained in parens after the sub name). A sub declaration should look like this: sub NAME { CODE } (no parens) — TLP
– TLP, Commented Nov 21, 2013 at 10:40
You try to use named arguments that are not implemented in perl5 You can can achieve this another way perldesignpatterns.com/?NamedArguments — teodozjan
– teodozjan, Commented Nov 21, 2013 at 11:00

Toto · Accepted Answer · 2013-11-21 10:34:34Z

1

Just define your sub like:

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";
}

answered Nov 21, 2013 at 10:34

Toto

91.7k63 gold badges97 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

santoshi kumari Over a year ago

yes i am using that code, it gives answer but having one warning as"Illegal character in prototype for main::callng_prgm : $a,$b,$c,$d,$e,$f,$g,$h at D:/workspace/sdff/sample.pl line 4.",how to solve that warning..

TLP Over a year ago

@santoshikumari No, you are not using that code, or you would not get that warning. It's quite impossible, so read the code that M42 posted more carefully.

Mark Setchell · Accepted Answer · 2013-11-21 10:44:41Z

1

Why restrict yourself to 8 parameters? This will work with any number of parameters.

#!/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);

answered Nov 21, 2013 at 10:44

Mark Setchell

210k32 gold badges310 silver badges504 bronze badges

Collectives™ on Stack Overflow

How to call a subroutine which is having 8 parameters in another perl script

2 Answers 2

2 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related