初めてのPerl ~4.8 可変長のパラメータリスト~
サンプル:引数リスト数を指定するサブルーチン
#! /usr/bin/perl -w
@data=(1,5,2,4,3);
print "@data \n";
$max=&max(@data);
print "Max is $max";sub max{
if(@_>2){
die 'Warning : &max should get exactly two arguments !';
}
if($_[0]>$_[1]){
$_[0];
}else{
$_[1];
}
}