配列リファレンスの元配列の最大インデックスを求める
普通の配列(@aaa)の最大インデックスは、変数名に$#をつけて$#aaaです。
では、配列リファレンスの場合は、どうなるでしょうか?
答え:以下です。
my @aaa = ('aaa', 'bbb', 'ccc', 'ddd'); my $bbb = \@aaa; print $#$bbb; # 配列リファレンスの場合は、こうなります。 print "\n"; for (my $i = 0; $i <= $#$bbb; $i++) { print $bbb->[$i], "\n"; }