HAT

回复 3# lllsoslll

my @a = (1, 2, 3);
#数组元素个数
print scalar(@a),"\n";
print @a."\n";
my $n = @a;
print "$n\n";
#数组最后一个下标（数组元素个数减去1）
print "$#a\n";
#数组最后一个元素
print "$a[$#a]\n";
复制代码