in reply to Subroutine help
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";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Subroutine help
by hackernet1337 (Initiate) on Aug 23, 2009 at 09:16 UTC | |
by apl (Monsignor) on Aug 23, 2009 at 15:10 UTC | |
by hackernet1337 (Initiate) on Aug 24, 2009 at 01:17 UTC | |
by apl (Monsignor) on Aug 24, 2009 at 15:04 UTC |