Question

请教perl 中foreach循环的结果

sub total{ my $sum=0; foreach (@_){ $sum +=$_; } $sum; } my @fred=qw(1..1000); my $fred_total = total(@fred); print"The sum of those is $fred_total.\n" 为什么结果是1啊？

Answer 1

因为my @fred=qw(1..1000);
perl 理解为 my @fred=‘1..1000’;

所以函数里面，@_ = ‘1..1000’;
$sum += $_; 把 ‘1..1000’ 理解为数字，就是 1 了。

Answer 2

my @fred=qw(1..1000),将qw去掉。