【Perl】 最後の配列へのアクセス

職場で「indexに-1指定すると最後の配列にアクセスできるよ～」と教えてもらった。知らなかった！

my @arrray = (1 .. 10);
print $array[-1];  #10がプリントされる

-2を指定すれば9が・・・というように負の添え字を指定すると逆順でアクセスします。

・・・何か気持ち悪いなぁ^^;

添え字に本来は配列外の数値を使うというのが・・・。


ちなみに他の方法だと、#で最後の添え字取得だとか、配列の長さ-1を指定するという方法があります。

print $array[$#array];
print $array[scalar @array - 1];

自分なら、他の言語でも見られる「配列の長さ-1」でやります。
Perl使いには嘲笑されそうですがね。。

JogNote

一昨年末に膝を故障。結構長引くだろうな、と思ったら案の定1年近くかかりました。
しかし、最近はずいぶん調子も上がってきたのでまた走り始めてます。

そんなわけで練習の結果をJogNoteに書き溜めてるところで、JogNoteのアカウントを晒してみます。
http://www.jognote.com/users/45992
あとブログパーツ。動くかな？