程嶏清单9-5.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 11 行

sub  sum {
    my  ($sum);      # $sum声明为私有变量
    $sum = 0;
  foreach $_(@_) {
      $sum += $_;
　 }
   return $sum;
}
@number = (1..100);
print sum(@number);