Perlでの単独shiftとは

perl初心者の自分ようメモです。。。。

perlでのshift関数の一般的な使い方の例

my @city = ("東京", "大阪");
my $val = shift(@city);
print "$val¥n";

→東京　と表示される

では配列変数の引数がない単独shiftはどのようになるのか。

mainモジュールでは「@ARGV」がデフォルトの引数で、sub内では、「@_」がデフォルトの引数になる。
「@ARGV」は、コマンドラインの引数の配列で、「@_」は、サブルーチンの引数の配列。

◆サンプル
subx(4000);

sub subx {
my $para = shift || 3000;
print $para, "\n";
}

◆サンプル実行結果
C:\perltest>perl shift.pl
4000