首页 | 新闻 | 交流 | 问吧 | 文档 | 手册 | 下载 | 博客

perl学习4--子程序中自动识别参数

作者:  时间: 2011-04-24

#!/usr/bin/perl -w
sub max{
  my($max_so_far) = shift @_;    #my后面用来声明私有变量,因为perl中默认都为公有变量,shift取列表的头元素,并删除头元素
  foreach (@_)  {
    if ($_ > $max_so_far) {
      $max_so_far = $_;
    }
  }
  $max_so_far;
}
$maximum=&max(3,5,10,4,6);
print "The max is $maximum\n";