10.7 名前付きの引数を渡す

  • サブルーチン
sub thefunc {
  my %args = (
    INCREMENT => '10s',
    FINISH => 0,
    START => 0,
    @_,       # 名前付きの引数のリストがここに格納される
  };
  if ($args{INCREMENT} =~ /m$/ ) { ... }
}
  • 呼び出し側
thefunc(INCREMENT=>'20s', START=>'+5m', FINISH=>'+30m');