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


您可能感兴趣的文章:

• JavaScript数组函数unshift、shift、pop、push使用实例
• js 数组操作之pop,push,unshift,splice,shift
• Js数组的操作push,pop,shift,unshift等方法详细介绍
• 浅谈JavaScript的push(),pop(),concat()方法

本文由 华域联盟 原创撰写：华域联盟 » perl pop push shift unshift实例介绍

转载请保留出处和原文链接：https://www.cnhackhy.com/76849.htm