 |
 |
 |
構文 |
|
|
pop 配列 |
|
返り値 |
|
|
配列の末尾の値 |
|
説明
- 配列の末尾の値を削除して，その値を返します。配列が空の場合は未定義値を返します。
- 配列を省略した場合，サブルーチン内では@_，メインルーチン内では@ARGVが対象になります。
使用例
配列@dataの末尾の値1000の取得
#!/usr/bin/perl
use strict;
use warnings;
my @data = (1, 10, 100, 1000);
# 末尾の値を表示
my $val = pop @data;
print $val, "\n";
print "\n";
# 残りの値を表示
foreach my $item (@data) {
print $item, "\n";
}配列@stackを利用したスタックにA, B, Cを積んだ後，一つずつ値を取り出す（後に入れたものを先に取り出す）
#!/usr/bin/perl
use strict;
use warnings;
my @stack = ();
push @stack, 'A';
push @stack, 'B';
push @stack, 'C';
print pop @stack, "\n"; # C
print pop @stack, "\n"; # B
print pop @stack, "\n"; # A
