PERL语言入门:第三章:列表与数组:访问数组元素与特殊索引

#!/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为数组的长度
~                                                                                                               
~                                                                                                               
~