论坛 › Perl › perl学习5--子程序中自动识别参数

olti 发表于 2015-12-28 14:50:17

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

#!/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";

查看完整版本: perl学习5--子程序中自动识别参数