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使这些值可以在子程序中可用。