おそらくはそれさえも平凡な日々: Perlのサブルーチンプロトタイプについて

プログラミングPerlとPerlベストプラクティスを読み返して勉強しなおした。概要としてはこんな感じ。 サブルーチンの引数の型を指定出来るようになる 暗黙的にリファレンス渡しができるようになる 例えば、組み込み関数のpushは第一引数に配列を取るが、暗黙的にリファレンス渡しになっている。(引数リストとして展開されない) このような挙動は通常のPerlのサブルーチンの仕組みでは実現できないが、プロトタイプを使うと実現できる。 sub my_push(\@@){ my ($arr_ref, @arr) = @_; for(@arr){ $$arr_ref[$#$arr_ref+1] = $_; } } my @test_arr = (1,2,3,4,4); my_push(@test_arr, 1,2,3); print join ',',@test_arr; #1,2,3,4,4,1,2,3

[ken39arg]

サブルーチンの&はつけない

[TokyoIncidents]

昔は、自分で定義したサブルーチンは組み込み関数と混同しないように、アンパサンドを付けるのが流儀だったが、今はアンパサンドをつけないのが主流。

[rochefort]

サブルーチンを呼び出す時に&(アンパサンド)をつけるとプロトタイプは無視され、引数指定を無視してもコンパイルエラーにならない。なので、アンパサンドをつけた関数呼び出しは一切しない方が良い。