[EMAIL PROTECTED] (Dragon Nebula Web Design) writes:
[...]
> In this case, RTFMing is not helping (and I'd rather not
> resort to the answer in the back of the book).
You chose to not look?
Don't let your pride get in the way of working code. AND
also, don't let a simple answer get in the way of a good
learning exercise. That 'ol yin/yang thing.
Or did you look and not find it helpful?
[...]
> My question is, what am I not doing right? I don't want the answer to
> the program, just a point in the right direction in TFM. BTW, this
> exercise is only supposed to take 12 min or so, I've been working on it
> for nearly 4 hrs total.
Breathe... In. Out. Repeat. Again.
Take stock of what you *did* learn. Don't forget it. You
invested 4 hours in that lesson!!!!
> #!usr/local/bin/perl -w
>
> my @fred = qw{ 1 3 5 7 9 };
> my $fred_total = &total (@fred);
> print "The total of \@fred is $fred_total.\n";
> print "Enter some numbers on separate lines: ";
> my $user_total = &total (<STDIN>);
> print "The total of those numbers is $user_total.\n";
>
> sub total {
> ($fred_total...$fred_total +=) ;
> (<stdin>...<stdin> +=) ;
> }
You're missing the parameter passing mechanism. Look again
(in TFM) at how parameters are passed into a sub. But don't
look about 20 lines below if you don't want to see a
solution.
Enjoy the learning exercise,
Michael
Answers below
|
|
|
V
|
|
|
V
|
|
|
V
|
|
|
V
|
|
|
V
# Readable.
sub total {
my $sum;
foreach my $num (@_) {
$sum += $num;
}
return $sum;
}
# Streamlined
sub total {
my $sum;
$sum += $_ foreach (@_); # $_ implicitly set
} # sum implicitly returned
--
Michael R. Wolf
All mammals learn by playing!
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
