10.1 サブルーチンの引数にアクセスする
- 直接アクセス
sub hypotenuse { return sqrt( ($_[0] ** 2) + ($_[1] ** 2) ); }
- 名前付き局所変数にコピー
sub hypotenuse { my ($side1, $side2) = @_; return sqrt( ($side1 ** 2) + ($side2 ** 2) ); }
sub hypotenuse { return sqrt( ($_[0] ** 2) + ($_[1] ** 2) ); }
sub hypotenuse { my ($side1, $side2) = @_; return sqrt( ($side1 ** 2) + ($side2 ** 2) ); }