[译]Perl中的数组

最新推荐文章于 2024-10-12 22:35:37 发布

weixin_34377065

最新推荐文章于 2024-10-12 22:35:37 发布

阅读量84

点赞数

文章标签： java

在本篇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函数会在原数组的最右边插入一个新的数组元素.

use Data::Dumper qw(Dumper);

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

say Dumper \@names;

输出结果如下:

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

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函数会从原数组中删除最左边的那个数组元素,并且返回删掉的那个元素.

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',
      ];

关注