foreach的运算结果不能做为子程序的返回值吗？

mxl913721

各位大虾，小弟刚学perl，碰到个问题，查了一下午没查到根本原因，求指导..

看程序：

my @array = qw(1 3 5 7 9);
my $array_total = total(@array);

print "The total of \@array is: $array_total\n";

sub total{
    my $sum;
    foreach my $num (@_){
        $sum += $num;
    }
}

这样子死活打印不出值来，不是说子程序的最后一条语句即为返回值吗，这里的最后一条语句不是指的foreache最后一次的循环吗？$sum最后怎么没返回呢？？

当我在total子程序最下面加了一条$sum的时候，可以正确返回：
sub total{
    my $sum;
    foreach my $num (@_){
        $sum += $num;
    }
    $sum;
}


问题来了，foreach的运算结果难道不能做为子程序的返回值吗？？

求大侠指导~~

kk861123

似乎在哪看过一个这样问题的帖子，楼主再分析一下子程序的最后一条语句真的是这个吗？

1. $sum += $num;

复制代码

laputa1973

http://bbs.chinaunix.net/forum.p ... ;page=1#pid22223984
刚挖过坟。。。。

cdtits

貌似最后执行的是：

1. foreach my $num (@_)

复制代码

mxl913721

回复 3# laputa1973

哈哈，谢谢大家的关注。找到原因了：
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.

唉，中文版的《perl语言入门》里没说这个- -

他这个是指循环控制语句的话返回空列表？感觉好像不是很准确。。

“返回值是不确定的。空sub返回空列表”？？

空sub是？？？



   

mxl913721

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.

哦，这个The empty sub returns the empty list.应该跟前面的那句没关系的。。。

就是说指循环控制语句的返回值是未指定的吧。

xiyoulaoyuanjia

the returned value is unspecified  

蚊仔perlperl

学习到了。