perl数组的长度与元素个数

sszxf

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++;
}
运行结果：
[iyunv@centos5 perl]# perl arrary-len.pl
5
4
-------
1
-------
element 1: a
element 2: b
element 3: c
　　element 4: d
　　转载自：http://blog.csdn.net/zlking02/article/details/7222321