作了个POP操作却不知道什么错了

_acmus

作一个累加的操作，想用pop把列表里的内容累加，却没实现，请大家看看哪里有问题？谢谢！
#!/usr/bin/perl
use strict;
sub mySum{
        my $rest=0;
        foreach (@_){
                $rest += pop(@_);
        }
        return $rest;
}

my $myRest = &mySum(1,3,5,7,9);

print "---> $myRest\n";
结果是21，为啥pop了5以后就不继续循环了呢？

兰花仙子

搞错了。

你同时遍历@_又pop @_是perl运行时大忌。

兰花仙子

$ perl -le 'sub x{$t+=$_ for @_;$t} $sum = x(1,3,5,7,9); print $sum'
25

zhlong8

这个之前有讨论过

_acmus

初涉perl，让大家见笑了。谢谢“兰花仙子”同志。

sunway820

sub mySum{
        my $rest=0;
        foreach (@_){
              #$rest += pop(@_);
             $rest += $_ ;     ## 把上句换成此句就没问题了
               
        }
        return $rest;
}

for遍历和pop不能同时使用