[译]Perl中的数组

原文:http://perl5maven.com/perl-arrays

在本篇Perl教程中,我们将会学习Perl中的数组.本文只是对Perl中的数组进行了一下概述,在以后的文章中,我们还会更加详细的讲解.

在Perl中,数组类型的变量名称以@符号开头.

因为我们坚决要求在自己的代码中使用严格模式(use strict),所以在使用数组变量前,你必须使用my关键字来声明它.

要注意,我们假定本文中所有的代码示例都已经包含了下面这样的文件头:

use strict;use warnings;use 5.010;

首先,声明一个数组变量是这样写的:

my @names;

然后是声明变量的同时并进行初始化:

my @names=("Foo","Bar","Baz");

打印数组

use Data::Dumper qw(Dumper);

my @names = ("Foo","Bar","Baz");say Dumper \@names;

输出结果如下:

$VAR1 =['Foo','Bar','Baz'];

遍历数组

my @names = ("Foo","Bar","Baz");foreach my $n (@names){　　say $n;}

输出结果如下:

FooBarBaz

访问数组元素

my @names = ("Foo","Bar","Baz");say $names[0];

这里需要特别注意的是:当访问某单个的数组元素的时候,变量名的前导符号应该使用$,而不是原来的@.有些人也许不理解为什么要这么做,但其实原因也很简单.

你只需要理解:@符号表示双数,而$符号表示单数.当访问单个的数组元素时,该元素表现的完全和普通标量变量相同,所以要用$.

获取数组中的最大索引号

数组的索引号最小从0开始,最大索引号的值可以通过$#name_of_the_array变量获取到,所以:

my @names = ("Foo","Bar","Baz");say $#names;

会输出2,因为数组的索引号只有3个:0,1,2.

计算数组长度

在Perl中,并没有一个专门用来获取数组长度的函数,但是还是可以通过其他方法获取到的.第一种办法就是:数组的长度其实就是数组的最大索引号加1,因此,如果想获取上例中的数组(@names)的长度,则可以使用表达式$#names+1来计算得出.

另外,还可以使用scalar函数来获取数组的长度:

my @names = ("Foo","Bar","Baz");say scalar @names;

上例将会输出3.

遍历数组索引

在某些情况下,我们不光需要遍历到数组元素的值,还需要遍历到元素值对应的索引.这种情况下,我们就需要这么做:

my @names = ("Foo","Bar","Baz");foreach my $i (0.. $#names) {say "$i - $names[$i]";}

输出结果如下:

0-Foo1-Bar2-Baz

Push函数

push函数会在原数组的最右边插入一个新的数组元素.

use Data::Dumper qw(Dumper);

my @names = ("Foo","Bar","Baz");push @names,'Moo';

say Dumper \@names;

输出结果如下:

$VAR1 =['Foo','Bar','Baz','Moo'];

Pop函数

pop函数会从原数组中删除最右边的那个数组元素,并且返回删掉的那个元素.

use Data::Dumper qw(Dumper);

my @names = ("Foo","Bar","Baz");my $last_value = pop @names;say "Last: $last_value";say Dumper \@names;

输出结果如下:

Last:Baz$VAR1 =['Foo','Bar',];

shift函数

shift函数会从原数组中删除最左边的那个数组元素,并且返回删掉的那个元素.

use Data::Dumper qw(Dumper);

my @names = ("Foo","Bar","Baz");

my $first_value = shift @names;say "First: $first_value";say Dumper \@names;

输出结果如下:

First:Foo$VAR1 =['Bar','Baz',];