サンプル：空の配列を引数として受け取るサブルーチン #! /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 $…

サンプル：可変長OKなサブルーチン #! /usr/bin/perl -w@data=(1,5,2,4,3); print "@data \n"; $max=&max(@data); print "Max is $max \n";sub max{ my($max) = shift @_; foreach (@_){ if($max $max=$_; } } return $max; }

セイバーの宝具：円卓の騎士。ごめんなさい。

サンプル：引数リスト数を指定するサブルーチン #! /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]…