初めてのPerl ~4.8.1 改良版の&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;
}
サンプル:可変長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;
}