Работа с массивами в Perl
Перевод достаточно вольный. Комментарии и предложения оставляете в виде комментариев, внизу страницы
- Инициализация (очистка) массива.
- Определение существования элемента массива.
- Определение количества элементов в массиве.
Автор статьи не дает никаких гарантий, что код приведенный в ней будучи "преобразованный" с помощью Copy/Past заработает. Все примеры работали на момент написания статьи.
Инициализация (очистка) массива.
Реализация
my @array = ();
Реализация
$#array - это индекс (порядковый номер) последнего элемента массива (на единицу меньше, чем количество элементов в массиве, так как массив начинается с нуля). Присвоение $#array изменяет длину массива @array, таким образом вы можете уничтожить (или очистить) все элементы массива между заданным при присвоении и последним. При присвоении -1, все элементы уничтожаются и массив очищается. Я рекомендую следующее решение:
$#array = -1;
Определение существования элемента массива
Реализация
print "Значение СУЩЕСТВУЕТ, но может быть неопределенно.\n"
if exists $array[ $index ];
print "Значение ОПРЕДЕЛЕНО, но может быть false.\n"
if defined $array[ $index ];
print "Зачениие элемента с индексом $index TRUE.\n"
if $array[ $index ];
Определение количества элементов в массиве.
Реализация
Если вы хотите вывести количество элементов в массиве, то вот самый простой способ:
print "size of array: " . @array . ".\n";
Реализация
Если вы хотите присвоить размер массива переменной, то просто используйте скалярный контекст:
$size = @array;
print "size of array: $size.\n";
Явно, скалярный контекст может быть получен с помощью функции scalar
$size = scalar @array;
print "size of array: $size.\n";
Кроме этого, существует еще один способ получения количества элементов массива. Я рекомендую использовать именно его:
Реализация
$size = $#array + 1;
Автор
Alex BATKO <abatko AT cs.mcgill.ca>
Спасибо всем, кто присылал комментарии и предложения.
См. еще
Оставить комментарий
Комментарии
