#!/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添加一个值到数组的最左边。