关于子例程的返回值

acheng170

我是一个perl新手，正在看《perl语言入门》（learning perl）的第四章 －－－子例程。
书上67页说：“在子例程的执行过程中，它会不断的进行运算。其中，最后一次运算的结果不管是多少，都会被自动当成子例程的返回值。”
然后看到72的例子：

#!/usr/bin/perl -w $maximum = &max(3,5,10,4,6); sub max{         my($max_so_far) = shift @_;         foreach (@_){                 if($_ > $max_so_far){                         $max_so_far = $_;                 }         }         $max_so_far; } print $maximum,"\n";

我想能不能把max子例程最后的"$max_so_far;"去掉，反正最后执行的表达式为：

1. $max_so_far = $_;

复制代码

但是去掉后，输出是空，并不是想象中的最大值10。

#!/usr/bin/perl -w $maximum = &max(3,5,10,4,6); sub max{         my($max_so_far) = shift @_;         foreach (@_){                 if($_ > $max_so_far){                         $max_so_far = $_;                 }         } #       $max_so_far; } print $maximum,"\n";

redicaps

你还能自己分析下程序看最后一次执行是不是   $max_so_far = $_;

acheng170

redicaps,
你的意思是：最后由于“6” 小于“10”，没有执行 $max_so_far = $_; 。 对吗？
那我把程序改为：

#!/usr/bin/perl -w $maximum = &max(3,5,10,4,6,17); sub max{         my($max_so_far) = shift @_;         foreach (@_{                 if($_ > $max_so_far){                         $max_so_far = $_;                 }         } #        $max_so_far; } print $maximum,"\n";

最后应该执行  $max_so_far = $_; 了吧。
但是输出依然是空值。

还是，这个sub子例程最后一次的运算为

1. foreach (@_)

复制代码

所以返回空。

acheng170

又做了一个测试，感觉问题出在：max子例程最后执行的一次运算为
foreach (@_)；
而不是我原来理解的
$max_so_far = $_;

不知道，我的理解是否正确。请大家帮看看。

doiob

你最后的理解是对的

riverlee2008

兄弟太爱专研了，努力

motoste

佩服

mihello

兄弟我刚刚也为这个问题发愁中。参看下。

laputa1973

没注意，挖坟贴。

sjdy521

想当然了，没好好看文档

If no return is found and if the last statement is an expression, its value is returned. If the last statement is a loop control structure like a foreach or a while , the returned value is unspecified. The empty sub returns the empty list.

说的很清楚了