Как получить общее количество элементов в массиве, а НЕ последний идентификатор?
Ни один из двух способов, которые я нашел для этого, не работает:
my @a;
# Add some elements (no consecutive ids)
$a[0]= '1';
$a[5]= '2';
$a[23]= '3';
print $#a, "\n"; # Prints 23
print scalar(@a), "\n"; # Prints 24
Я ожидал получить 3...
Правка: хэш против массива
Как правильно указал cincodenada в комментарии, ysth дал лучший ответ: я должен был ответить на ваш вопрос другим вопросом: «Вы действительно хотите использовать массив Perl? Хэш может быть более подходящим».
Массив выделяет память для всех возможных индексов, вплоть до самого большого из использованных до сих пор. В вашем примере вы выделяете 24 ячейки (но используете только 3). Напротив, хеш выделяет место только для тех полей, которые фактически используются.
Решение для массива: скалярный grep
Вот два возможных решения (объяснение см. ниже):
print scalar(grep {defined $_} @a), "\n"; # prints 3
print scalar(grep $_, @a), "\n"; # prints 3
Объяснение: после добавления $a[23] ваш массив действительно содержит 24 элемента --- но большинство из них не определены (что также оценивается как ложное). Вы можете подсчитать количество определенных элементов (как это сделано в первом решении) или количество истинных элементов (второе решение).
В чем разница? Если вы установите $a[10]=0, то первое решение засчитает его, а второе — нет (поскольку 0 ложно, но определено). Если вы установите $a[3]=undef, ни одно из решений не засчитает его.
Хэш-решение (по yst)
Как предлагает другое решение, вы можете работать с хешем и избежать всех проблем:
$a{0} = 1;
$a{5} = 2;
$a{23} = 3;
print scalar(keys %a), "\n"; # prints 3
Это решение подсчитывает нули и значения undef.
print scalar(grep { $_ } @a), "\n";
- person arikin; 30.03.2015
Похоже, вам нужен разреженный массив. В обычном массиве будет 24 элемента, а в разреженном — 3. В Perl мы эмулируем разреженные массивы с помощью хэшей:
#!/usr/bin/perl
use strict;
use warnings;
my %sparse;
@sparse{0, 5, 23} = (1 .. 3);
print "there are ", scalar keys %sparse, " items in the sparse array\n",
map { "\t$sparse{$_}\n" } sort { $a <=> $b } keys %sparse;
Функция keys в скалярном контексте вернет количество элементов в разреженном массиве. Единственным недостатком использования хэша для эмуляции разреженного массива является то, что вы должны сортировать ключи перед повторением по ним, если их порядок важен.
Вы также должны помнить об использовании функции delete для удаления элементов из разреженного массива (просто недостаточно установить для них значение undef).
Возможно, вам нужен хеш вместо (или в дополнение). Массивы — это упорядоченный набор элементов; если вы создаете $foo[23], вы неявно создаете $foo[0] через $foo[22].
вывести скалярную группу grep { определено $_ } @a;
@people = qw( bob john linda );
$n = @people; # The number 3
Print " The number in the list is $n \n";
Выражения в Perl всегда возвращают значение, соответствующее их контексту.
Например, как насчет «имени» * массива? В контексте списка он дает список элементов. Но в скалярном контексте он возвращает количество элементов в массиве.
