"Michael R. Wolf" wrote:
>
> # Readable.
> sub total {
> my $sum;
> foreach my $num (@_) {
> $sum += $num;
> }
> return $sum;
> }
>
> # Streamlined
> sub total {
> my $sum;
> $sum += $_ foreach (@_); # $_ implicitly set
> } # sum implicitly returned
^^^^^^^^^^^^^^^^^^^^^^^
$ perl -le'
@fred = qw(1 3 5 7 9);
sub total {
my $sum;
$sum += $_ foreach (@_);
}
print total( @fred );
'
$ perl -le'
@fred = qw(1 3 5 7 9);
sub total {
my $sum;
$sum += $_ foreach (@_);
$sum;
}
print total( @fred );
'
25
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
