Найти размер массива в Perl

Question

Я, кажется, натолкнулся на несколько разных способов найти размер массива. В чем разница между этими тремя методами?

my @arr = (2);
print scalar @arr; # First way to print array size

print $#arr; # Second way to print array size

my $arrSize = @arr;
print $arrSize; # Third way to print array size

Answer 1

Чтобы узнать размер массива, используйте ключевое слово scalar:

print scalar @array;

Чтобы узнать последний индекс массива, есть $# (переменная Perl по умолчанию). Это дает последний индекс массива. Поскольку массив начинается с 0, мы получаем размер массива, добавляя его к $#:

print "$#array+1";

Пример:

my @a = qw(1 3 5);
print scalar @a, "\n";
print $#a+1, "\n";

Выход:

3

3