数组 获取最后一个元素索引值

#!/usr/bin/perl -w

@a=qw(a b c d e f g);

print "$a[0]\n";
print "$a[$#a]\n";

 

$a[$#a] 表示最后一个元素的索引值，也可使用$a[-1]获取最后一个值。