pop/push

pop , push

#!/usr/bin/perl

print "Content-type:text/html\n\n";

@ary = ( "acha" , "porute" , "piipo" );

print "ary : @ary<br>";

@ary =~ pop @ary;

print "popすると : @ary<br>";

@ary =~ push @ary , "piipo";

print "pushすると : @ary";


●出力結果
ary : acha porute piipo
popすると : acha porute
pushすると : acha porute piipo

popで配列の最後の要素を削除。
pushで配列の最後に要素を追加。