本文介绍了一个用Perl编写的简单脚本，该脚本定义了一个名为max的子程序，用于找出一组数值中的最大值。通过传递一系列整数作为参数，max子程序能够返回这些数中的最大值。
#!/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";
转载于:https://www.cnblogs.com/djcsch2001/archive/2011/04/24/2026179.html
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
