配列(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の特徴と言えるのではないでしょうか。