#!/usr/bin/perl -w
use strict;
print '@a @b @c @d 的值都為1 2 3',"/n";
my @a = (1..3);
pop(@a);
print "/@a的值為@a,pop拿掉數組最右邊的值/n";
my @b = (1..3);
push(@b,'4');
print "/@b的值為@b,push添加一個值到數組的最右邊。/n";
my @c = (1..3);
shift@c;
print "/@c的值為@c,shift拿掉數組最左邊的一個值。/n";
my @d = (1..3);
unshift(@d,0);
print "/@d的值為@d,unshift添加一個值到數組的最左邊。/n";

 
[root@OTRS perl]# perl pop_push_shift_unshift.pl
@a @b @c @d 的值都為1 2 3
@a的值為1 2,pop拿掉數組最右邊的值
@b的值為1 2 3 4,push添加一個值到數組的最右邊。
@c的值為2 3,shift拿掉數組最左邊的一個值。
@d的值為0 1 2 3,unshift添加一個值到數組的最左邊。