10.1 サブルーチンの引数にアクセスする

  • 直接アクセス
sub hypotenuse {
  return sqrt( ($_[0] ** 2) + ($_[1] ** 2) );
}
sub hypotenuse {
  my ($side1, $side2) = @_;
  return sqrt( ($side1 ** 2) + ($side2 ** 2) );
}