一天一perl

在perl里面数组或者列表的最后一个元素可以用$a[-1]表示；
但是

$#a

可以表示最后一个元素的索引。
所以两者等价。
进一步，我们可以使用$#a+1来获取列表元素具体是多少个。

@a=(1,2,3,4);
print "$#a\n";
print "$a[-1]\t$a[$#a]\n";

输出

3       #最后一个元素索引就是3
4  4  #两者结果一样