And here are the errors that your code generates:use warnings; use strict; sub AddNumbers { numberList($first_number, $second_number, $third_number, $fourth_n +umber, $fifth_number, $sixth_number) = @_; $add $first_number + $second_number + $third_number + $fourth_numb +er + $fifth_number + $sixth_number; } print "Equals to: &add /n"
Scalar found where operator expected at temp.pl line 7, near "$add $fi +rst_number" (Missing operator before $first_number?) Global symbol "$first_number" requires explicit package name at temp.p +l line 6. Global symbol "$second_number" requires explicit package name at temp. +pl line 6. Global symbol "$third_number" requires explicit package name at temp.p +l line 6. Global symbol "$fourth_number" requires explicit package name at temp. +pl line 6. Global symbol "$fifth_number" requires explicit package name at temp.p +l line 6. Global symbol "$sixth_number" requires explicit package name at temp.p +l line 6. Global symbol "$add" requires explicit package name at temp.pl line 7. syntax error at temp.pl line 7, near "$add $first_number " Global symbol "$first_number" requires explicit package name at temp.p +l line 7. Global symbol "$second_number" requires explicit package name at temp. +pl line 7. Global symbol "$third_number" requires explicit package name at temp.p +l line 7. Global symbol "$fourth_number" requires explicit package name at temp. +pl line 7. Global symbol "$fifth_number" requires explicit package name at temp.p +l line 7. Global symbol "$sixth_number" requires explicit package name at temp.p +l line 7. Execution of temp.pl aborted due to compilation errors.
Scalar found where operator expected at temp.pl line 7, near "$add $fi +rst_number"
Global symbol "something" requires explicit package name at
First off new line is '\n' and not'/n'. I am unclear on what you expect printed here considering you have not called 'AddNumbers'print "Equals to: &add /n"
use strict; use warnings; sub AddNumbers { my ($first_number, $second_number, $third_number, $fourth_number, +$fifth_number, $sixth_number) = @_; my $add = $first_number + $second_number + $third_number + $fourth +_number + $fifth_number + $sixth_number; return $add; } my $sum = AddNumbers( 1, 2, 3, 4, 5, 6 ); print "The sum of input numbers equals to: $sum \n";
In reply to Re: Subroutine help
by tmharish
in thread Subroutine help
by hackernet1337
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |