perl数组的长度与元素个数

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

perl数组的长度与元素个数

$#数组名            ---表示数组中最后一个元素的下标，它等于元素个数减1。
@数组名             ---表示数组中元素的个数。
$标量=@数组名       ---将一个数组赋值给一个标量变量，标量得到的是这个数组的元素个数。
$数组名[数组下标]---这种格式可以取出数组中相应的元素。
例1
#!/usr/bin/perl
my @arr=(1,2,3,4,5);
my $len1=@arr;
my $len2=$#arr;
print "$len1 ";
print "$len2 ";
print "------- ";

(my $scalar2)=@arr;
print "$scalar2 ";
print "------- ";

my @str=("a","b","c","d");
my $count=1;
while($count <=@str){
   print "element $count: $str[$count-1] ";
   $count++;
}
运行结果：
[root@centos5 perl]# perl arrary-len.pl
5
4
-------
1
-------
element 1: a
element 2: b
element 3: c
element 4: d