从的foreach在子程序返回值

Question

考虑下面的简单示例：

#!perl -w 
use strict; 

sub max { 
    my ($a, $b) = @_; 
    if ($a > $b) { $a } 
    else { $b } 
} 

sub total { 
    my $sum = 0; 
    foreach (@_) { 
     $sum += $_; 
    } 
    # $sum; # commented intentionally 
} 

print max(1, 5) . "\n"; # returns 5 
print total(qw{ 1 3 5 7 9 }) . "\n"; 

根据Learning Perl（第66页）：

“最后计算的表达式”的真正含义的最后一个表达式该 Perl评估，而不是子例程中的最后一条语句。

有人能解释我为什么total不直接从foreach（就像if）返回25？我增加了额外的$sum为：

foreach (@_) { 
    $sum += $_; 
    $sum; 
} 

，我有这样的警告信息：

无用的使用在无效的情况下私​​有变量的...

但是明确使用return作品如预期的那样：

foreach (@_) { 
    return $sum += $_; # returns 1 
} 

Answer 1

从perlsub：

如果没有返回被发现，如果最后的语句是一个表达式，则返回其 价值。如果最后一条语句像循环控制结构 像foreach或while一样，则返回的值是未指定的。