subroutine's returned value

[xyoavx]

Hello,
I don't understand why the following program displays nothing, although
the meaning of the last calculation performed by the subroutine max
is:{$max_so_far=10;}

#!perl -w

$maximum=&max(3,5,10);
print $maximum,"\n";
sub max
{
my($max_so_far)=shift @_;
foreach (@_)
{
if ($_>$max_so_far)
{$max_so_far=$_;}
}
}

Thanks in advance,
xyoavx

 

[Paul Lalli]

Hello,
I don't understand why the following program displays nothing, although
the meaning of the last calculation performed by the subroutine max
is:{$max_so_far=10;}

#!perl -w

$maximum=&max(3,5,10);
print $maximum,"\n";
sub max
{
my($max_so_far)=shift @_;
foreach (@_)
{
if ($_>$max_so_far)
{$max_so_far=$_;}
}
}

This issue was brought up in this group about 5 or 6 weeks ago, I
believe [1]. The $max_so_far=$_ is NOT the last statement executed by
Perl. The last statement executed is the check of @_ to determine if
there are any more iterations of the foreach loop. There are not, so
the loop ends, and then the subroutine ends.

Paul Lalli

[1]http://groups.google.com/group/comp...3a2d491a531?q=return+value+of+for+loop&rnum=1

 

[xyoavx]

Hello Paul Lalli,
Thanks a lot.
Regards,
xyoavx

Hello,
I don't understand why the following program displays nothing, although
the meaning of the last calculation performed by the subroutine max
is:{$max_so_far=10;}

#!perl -w

$maximum=&max(3,5,10);
print $maximum,"\n";
sub max
{
my($max_so_far)=shift @_;
foreach (@_)
{
if ($_>$max_so_far)
{$max_so_far=$_;}
}
}

This issue was brought up in this group about 5 or 6 weeks ago, I
believe [1]. The $max_so_far=$_ is NOT the last statement executed by
Perl. The last statement executed is the check of @_ to determine if
there are any more iterations of the foreach loop. There are not, so
the loop ends, and then the subroutine ends.

Paul Lalli

[1]http://groups.google.com/group/comp...3a2d491a531?q=return+value+of+for+loop&rnum=1