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