shell编程连载【5】- 求最大值

 

#! /usr/bin/perl

$ans=max(2,18,3,5);
print "Maximum value is $ans\n";

sub max{
        my $biggest=shift;
        foreach(@_){
        $biggest=$_ if $_>$biggest;
        }
return $biggest;
}

【说明】

$_：当前参数

@_：在子程序的调用过程中传值，perl使这些值可以在子程序中可用。