pop

構文

• pop ARRAY
• pop

解説

pop は配列の最後の要素を削除して、その値を返します。 もし配列が空だった場合は未定義値を返します。

my @array = ( 1, 2, 3 );
my $val   = pop @array;
print $val;                    # 3
print join( ', ', @array );    # 1, 2

ARRAY が省略された場合、メインプログラムなら @ARGV が適用され、 サブルーチンの中なら @_ が適用されます (shift と同様)。

&do_something( 1, 2, 3 );

sub do_something {
    my $arg = pop;
    print $arg;    # 3
}