Perl 数组应用详解(push, pop, shift, unshift)

Perl的数组操作有四大常用函数：

push：从数组的末尾加入元素。 pop ：从数组的末尾取出元素

shift： 从数组的开头取出元素 unshift：从数组的开头加入元素

1、push

#!/usr/bin/perl use strict; use warnings;

my @array = ();

for ( my $i = 1 ; $i     my $firstTotal = pop(@array);     print "@array\n"; }

output：

1 2 3 4 5 1 2 3 4 1 2 3 1 2 1

3、shift

#!/usr/bin/perl #######

use strict; use warnings;

my @array = ( 1, 2, 3, 4, 5, 6 );

while (@array) {     my $firstTotal = shift(@array);     print "@array\n"; }

output：

2 3 4 5 6 3 4 5 6 4 5 6 5 6 6

4、unshift

#!/usr/bin/perl #######

use strict; use warnings;

my @array = ();

for ( my $i = 1; $i