[译]Perl中的数组

zhltom

　　原文: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;
}
输出结果如下:



Foo
Bar
Baz
访问数组元素



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-Foo
1-Bar
2-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',
];