perl數組的長度與元素個數 $#數組名 ---表示數組中最後一個元素的下標,它等於元素個數減1。
@數組名 ---表示數組中元素的個數。 $標量=@數組名 ---將一個數組賦值給一個標量變量,標量得到的是這個數組的元素個數。 $數組名[數組下標]---這種格式可以取出數
perl數組的長度與元素個數
@數組名 ---表示數組中元素的個數。
$標量=@數組名 ---將一個數組賦值給一個標量變量,標量得到的是這個數組的元素個數。
$數組名[數組下標]---這種格式可以取出數組中相應的元素。
例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