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