摘要： #! /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使这些值可以在子程序中可用。 阅读全文