获取数组最后一个元素的方法/数组元素个数

beyes

在 perl 里面获取一个数组中的最后一个元素的方法有 3 个。

第一种，像往常所使用的，直接给出数组最后一个元素的下标。

第二种，使用 $#数组名 。

第三种，使用 -1 作为下标。在 perl 里面，运行数组索引使用负数作为下标，此时 -1 表示最后一个元素的索引，-2 表示倒数第 2 个元素的索引...以此类推，但是一般除了用 -1 作为寻找最后一个元素外，很少使用其它的负数。

测试代码：
[code=perl]#!/usr/bin/perl

$myarray[0] = 'welcome';
$myarray[1] = 'to';
$myarray[2] = 'groad';
$myarray[3] = 'net';

print "$#myarray \n";

print "$myarray[-1] \n";

print "$myarray[-3] \n";[/mw_shl_code]
运行输出：

./lastv.pl
3
net
to

获取数组的个数还可以将数组赋值给一个变量，那么这个变量的值就是该数组中的元素个数，比如：
[code=perl]#!/usr/bin/perl
use strict;
use warnings;

my @myarray = qw("www", "groad", "net");

my $t = @myarray;

print $t."\n";[/mw_shl_code]
输出为 3 。