配列(7) push, shift, pop, unshift

とりあえず、push, shift, pop, unshift の4つを練習してみました。

# arrtest8.pl
my @arr = ("A", "B", "C");
print @arr, "\n";
 
print "push D  length:", push(@arr, "D"), "\n";
print "push E  length:", push(@arr, "E"), "\n";
print @arr, "\n";
 
print "shift ", shift(@arr), "\n";
print "shift ", shift(@arr), "\n";
print @arr, "\n";
 
print "pop ", pop(@arr), "\n";
print "pop ", pop(@arr), "\n";
print @arr, "\n";
 
print "unshift b  length:", unshift(@arr, "b"), "\n";
print "unshift a  length:", unshift(@arr, "a"), "\n";
print @arr, "\n";

どのように要素が追加削除されているかがわかりやすいように、要所要所で配列の内容を表示しています。
実行してみます。

D:\dev\perl>perl arrtest8.pl
ABC
push D  length:4
push E  length:5
ABCDE
shift A
shift B
CDE
pop E
pop D
C
unshift b  length:2
unshift a  length:3
abC

狙い通りに動きました。スライスといい、配列の操作が充実していますね。Perlの特徴と言えるのではないでしょうか。