#!/usr/bin/perl -w
#下面定义了三个数组
$test[0] = 'black';
$test[1] = "gteen";
$test[2] = "red";
print qq/打印自定义的三个数组:\n/;
print "@test\n";
print @test,"\n";
#上面的打印, 说明加""与不加是有区别的, 加了的话默认在元素中加空格
print q/打印$test[10]的结果:/;
print "$test[10]";
if (defined($test[10])){
print "not undef\n";
}
else{
print "undef\n"
}
#结果为未定义的undef
#以上定义了$test[10], 所以数组自动扩充为11个元素, 没有指定值的自动被赋为undef
print "数组的元素个数为:";
$count = $#test+1;
print $count, "\n";
#对于数组@test, 最后一个元素的索引为$#test, 所以$#test+1为数组的长度
~
~
~
PERL语言入门:第三章:列表与数组:访问数组元素与特殊索引
最新推荐文章于 2021-10-15 11:17:16 发布