程嶏清单9-5.txt

< linux网络编程工具>>配套源码

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