サブルーチン 改良
#19 サブルーチンを改良してみよう
use warnings; use strict; # サブルーチン sub max{ my $max = shift(@_); #@_ foreach (@_) { $max = $_ if $_ > $max; } return $max; } print max(2,8,100,23,46);
サブルーチンを作成。
一番大きい値が表示されるように修正。
100
の表示を確認。
use warnings; use strict; # サブルーチン sub max{ my $max = shift(@_); #@_ foreach (@_) { $max = $_ if $_ > $max; } return $max; } print max(2,8,100,23,46);
サブルーチンを作成。
一番大きい値が表示されるように修正。
100
の表示を確認。