Perlの配列操作に関する知識の食べ残し
配列の末尾の添字を得るには
@TEST_ARRAY = (1 .. 5); print $#TEST_ARRAY . "\n"; @TEST_ARRAY = (); print $#TEST_ARRAY . "\n";
4 -1
配列を後方から参照する添字の書き方
@TEST_ARRAY = (1 .. 5); print $TEST_ARRAY[-1] . "\n"; print $TEST_ARRAY[-2] . "\n";
5 4
@TEST_ARRAY = (1 .. 5); print $#TEST_ARRAY . "\n"; @TEST_ARRAY = (); print $#TEST_ARRAY . "\n";
4 -1
@TEST_ARRAY = (1 .. 5); print $TEST_ARRAY[-1] . "\n"; print $TEST_ARRAY[-2] . "\n";
5 4