Perlで空の配列の要素数を数えてみた

ふと気になって、空の配列の要素数を数えたらどうなるのか試してみました。

まずはスカラーで評価してみます。

#!/usr/bin/perl

use strict;
use warnings;

my @array=();

my $arrayLen = @array;

print $arrayLen,"\n";      # 0と表示されます

print scalar(@array),"\n"; # 0と表示されます
 

どちらも 0 という評価でした。

次に配列の最後の要素番号を返す $# で評価してみます。

#!/usr/bin/perl

use strict;
use warnings;

my @array=();

my $arrayLast = $#array;

print $arrayLast,"\n";  # -1と表示されます。
 

結果は-1でした。

なるほど。そうなるのか！

【関連エントリー】
　・Perlで配列の要素の数を取得する覚え書き