perl数组的长度与元素个数

perl数组的长度与元素个数 $#数组名 ---表示数组中最后一个元素的下标，它等于元素个数减1。 @数组名 ---表示数组中元素的个数。 $标量=@数组名 ---将一个数组赋值给一个标量变量，标量得到的是这个数组的元素个数。 $数组名[数组下标]---这种格式可以取出数

perl数组的长度与元素个数

$#数组名 ---表示数组中最后一个元素的下标，它等于元素个数减1。

@数组名 ---表示数组中元素的个数。

$标量=@数组名 ---将一个数组赋值给一个标量变量，标量得到的是这个数组的元素个数。

$数组名[数组下标]---这种格式可以取出数组中相应的元素。

例1

#!/usr/bin/perl

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

my $len1=@arr;

my $len2=$#arr;

print "$len1 \n";

print "$len2 \n";

print "-------\n";

(my $scalar2)=@arr;

print "$scalar2 \n";

print "-------\n";

my @str=("a","b","c","d");

my $count=1;

while($count <=@str){

print "element $count: $str[$count-1]\n";

$count++;

}

运行结果：

[root@centos5 perl]# perl arrary-len.pl

5

4

-------

1

-------

element 1: a

element 2: b

element 3: c

element 4: d