サブルーチン
#18 サブルーチンを作ってみよう
use warnings; use strict; # サブルーチン sub max{ my $max = $_[0]; if($_[1]>$max){ $max = $_[1]; } return $max; } print max(2,8);
subでサブルーチンの処理を記述する。 returnなしでもできるが、推奨しない。
8
値が大きいほうが表示されることを確認。
use warnings; use strict; # サブルーチン sub max{ my $max = $_[0]; if($_[1]>$max){ $max = $_[1]; } return $max; } print max(2,8);
subでサブルーチンの処理を記述する。 returnなしでもできるが、推奨しない。
8
値が大きいほうが表示されることを確認。