perl求助：子程序

duke_wang · 发表于 2015-1-16 15:13:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

perl语言入门第六版第四章的第一个练习题：
如下写法（子程序在结尾）是可以得出25的：
my @fred = qw{1 3 5 7 9};
my $fred_total = &total;
print "$fred_total.\n";
sub total {
   my $sum;
   foreach (@fred) {
            $sum += $_;
   }
   $sum;
}
问题：为什么将子程序放在开头没有结果？
是调用total时没有给定参数的原因么？如果是，为什么在foreach后面的@fred不可以指定到列表呢

duke_wang · 发表于 2015-1-16 16:42:28

发现给定参数列表(@fred)，用foreach(@_)后，无论子程序在开头还是结尾都可以正确输出25
my @fred = qw{1 3 5 7 9};
my $fred_total = &total(@fred);
print "$fred_total.\n";
sub total {
   my $sum;
   foreach (@_) {
            $sum += $_;
   }
   $sum;
}