操作Perl数组: shift, unshift, push, pop
http://cn.perlmaven.com/manipulating-perl-arrays 和可以直接访问单独的数组元素一样,Perl也提供了很多其它有趣的方式来操作数组。特别是,有些函数可以很方便有效的将Perl的数组作为栈或者队列来使用。
poppop函数会删除并返回数组的最后一个元素。 在第一个例子(3元素数组)中可以看到,pop函数删除最后一个元素(下标最大)并返回它。
如果原数组为空,pop函数会返回undef。 push push?函数可以在数组的后面添加一个或多个值。(当然,也可以添加0个值,但是没有用,不是么?) push 'Moo'# Foo Bar Moo 在这个例子中我们最初有个两元素数组。之后我们向数组尾部push了一个标量,数组扩展成了3元素数组。 第二次调用push,我们push了@others数组的内容到@names尾部,把它扩充成5元素数组。 shift shift函数会让整个数组左移。设想一下,数组从左边开始。数组的第一个元素会从数组“掉下来”,并成为函数的返回值(如果数组为空,shift?会返回?undef。) 这样操作之后,数组会减少一个元素。 $first shift "$firstn"# Foo 这和pop很像,但是它作用于数组索引的小端。 unshift 这是shift的反函数。unshift?会传入一个或多个值(或者0个) 并把它放在数组的开头,将其他元素右移动。 你可以向它传单个的标量,那么这个值会成为数组的第一个元素。或者像第二个例子那样,你可以传递第二个数组,那么第二个数组的所有元素(我们例中的@others)会复制到主数组的开头(例中@names),并将其他元素向高索引方向移动。 unshift # Moo Foo Bar (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |