#! /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看来真的是很灵活呢
