perl的动态参数

#! /usr/bin/perl

sub max
{
 $max_value=shift(@_);
 foreach (@_)
 {
  if ($_ > $max_value)
  {
   $max_value=$_; 
  } 
 } 
 $max_value;
}

$value=&max(4,14,144);
print $value;

 

一个小小的求最大值的perl程序，perl的相对与C语言的一大优点就是参数不是区分函数的标记，传给max函数的参数可以使任意个，这个就解决了C语言写max函数需要两个，三个参数或者多个参数的问题，perl看来真的是很灵活呢