2009-11-29 shift関数に引数がないパターン Perl よく見る my $self = shift; の動作について。 引数がないと、デフォルトの変数「 @_ 」を引数にするそうです なので、この場合 my $self = @_[0] とイコールということになります。 (※@_の要素は一つ減ります)