引数の受け取り方法

Perl5では、サブルーチンの引数は「@_」という特殊な配列で渡される。
なので、受け取る時は、

1

my ($hoge1, $hoge2, $hoge3) = @_;

とか、

1
2
3


my $hoge1 = shift;
my $hoge2 = shift;
my $hoge3 = shift;

とかのやり方がある。

ここ最近は、最初のやり方を好んで使っている。

特殊とはいえ、配列は配列なので扱いは簡単。
shiftを使うと、元の配列の中身が減っていくので、昔はshiftを使うのが好きだった。
気分的にメモリの消費量が少なそうだったし。