perl pop push shift unshift实例介绍
来源：爱站网时间：2021-11-03编辑：网友分享
有人来求爱站技术小编出一篇perl pop push shift unshift实例介绍，于是今天就有了这篇啦，哈哈。满足大家的各种需求，给大家提供最大的帮助，有兴趣的人快点进来看看哇。
学习记录一下
#!/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添加一个值到数组的最左边。
以上内容就是爱站技术频道小编为大家分享的perl pop push shift unshift实例介绍，看完以上分享之后，大家应该都知道这些实例有哪些了吧。
