初めてのPerl ~4.8.2 空のパラメータリスト~

サンプル：空の配列を引数として受け取るサブルーチン

#! /usr/bin/perl -w

@data=undef;
print "@data \n";
$max=&max(@data);
print "Max is $max \n";

sub max{
　　my($max) = shift @_; # $max=undef

　　foreach (@_){ # @_=undefなのでループされない
　　　　　if($max<$_){
　　　　　　　$max=$_;
　　　　　}
　　}
　　return $max; # undefが返り値となる
}