Глава 4 Массивы

Массивы

Введение

4.1. Определение списка в программе

Проблема

Решение

При большом количестве многословных элементов создайте встроенный документ и последовательно извлекайте из него строки:
@lines = (""END_OF_HERE_DOC" =~ m/"\s*(.+)/gm);
The boy stood on the burning deck, It was as hot as glass.
END_OF_HERE_DOC

Комментарий

Во всех операторах определения строк, как и при поиске регулярных выражений, разрешается выбор символа-ограничителя, включая парные скобки. Допустимы все четыре тина скобок (угловые, квадратные, фигурные и круглые). Следовательно, вы можете без опасении использовать любые скобки при условии, что для открывающей скобки найдется закрывающая:
@brax = qw! ()<>{}[]!;
©rings = qw(Nenya Narya Vilya);
$tags = qw

Если ограничитель встречается в строке, а вы не хотите заменить его другим, используйте префикс \:
@banner = qw|The vertical bar (||) looks and behaves like a pipe.l; Оператор qw() подходит лишь для списков, в которых каждый элемент является отдельным словом, ограниченным пробелами. Будьте осторожны, а то у Колумба вместо трех кораблей появится четыре:
$ships = qw(Nica Pinta Santa Магна); # НЕВЕРНО!!!
$ships = ('Mica', 'Pinta', 'Santa Магна'); # Правильно

!> Смотри также --------------------------------- Раздел "List Value Constructors" perldata(1) раздел "Quote and Quote-Like Operators" perlop(1); оператор s/// описан в реrlоg(1).

4.2. Вывод списков с запятыми

Проблема

Решение

sub commify_series {
(@_ == 0) ? " :
(@_ == 1) ? $_[Q] :
(@_ == 2) ? join(" and ", @>_) :
join(", ", @_[0 .. ($й_-1], "and $_[-1]");
}

Комментарий

@аrrау = ("red", "yellow", "green");
print "I have ", @array, " marbles.\n";
print "I have @array marbles\n";

I have redyellowgreen marbles. I have red yellow green marbles. На самом деле вам нужна строка "I have red, yellow, and green marbles". Приведенная выше функция генерирует строку именно в таком формате. Между двумя последними элементами списка вставляется "and". Если в списке больше двух элементов, все они разделяются запятыми. Пример 4.1 демонстрирует применение этой функции с одним дополнением: если хотя бы один элемент списка содержит запятую, в качестве разделителя используется точка с занятой. Пример 4.1. commify_series

#!/usr/bin/perl -w
# commify_series - демонстрирует вставку запятых при выводе списка
@lists = (
[ 'just one thing' ],
[ qw(Mutt Jeff) ],
[ qw(Peter Paul Mary) ],
[ 'To our parents', 'Mother Theresa'. 'God' ],
[ 'pastrami', 'ham and cheese', 'peanut butter and jelly', 'tuna' ],
[ 'recycle tired, old phrases', 'ponder big, happy thoughts' ],
[ 'recycle tired, old phrases',
'ponder big, happy thoughts',
'sleep and dream peacefully' ],
);
foreach $aref ((Slists) {
print "The list is: " , commify_series(@$aref) . ".\n";
sub commify_series {
my $sepchar = grep(/,/ => @_) ? ";" : ",";
(@>_ == 0) ? "
(@_ == 1) ^ $_[0]
(@_ == 2) r). join(" and ", @_)
join("$sepchar ", @_[0 .. ($#_-1)], "and $_[-1]"):
}i>

Результаты выглядят так:

The list is just one thing.
The list is Mutt and Jeff.
The list is Peter, Paul, and Mary.
The list is To our parents, Mother Theresa, and God.
The list is pastrami, ham and cheese, peanut butter and jelly, and tuna,
The list is recycle tired, old phrases and ponder big, happy thoughts.
The list is: recycle tired, old phrases; ponder
big, happy thoughts; and sleep and dream peacefully.

Как видите, мы отвергаем порочную практику исключения последней занятой из списка, что нередко приводит к появлению двусмысленностей.

> Смотри также ------------------------------- Описание функции grep в perlfunc(l); описание тернарного оператора выбора в perlop(1) Синтаксис вложенных списков рассматривается в рецепте 11.1.

4.3. Изменение размера массива

Проблема

Решение

Комментарий

sub what_about_that_array {
print "The array now has ", scalar((a'people), " elements. \n";
print "The index of the last element is $#people.\n";
print "Element #3 is '$people[3]',\n";
}
@people = qw(Crosby Stills Nasn Young);
, what_about_that_array();

Результат:

The array now has 4 elements.
The index of the last element is 3.
Element #3 is 'Young'.
А другой фрагмент:
$#people--:
what_about_that_array();
выводит следующий результат:
The array now has 3 elements.
The index of the last element is 2.
Element #3 is o '.'

Элемент с индексом 3 пропал при уменьшении массива. Если бы программа запускалась с ключом -w, Per! также выдал бы предупреждение об использовании неинициализированной величины, поскольку значение $реор1е[3] не определено. В следующем примере:
$#реор1е = 10_000;
what_about_that_array();

результат выглядит так:
The array now has 10001 elements.
The index of the last element is 10000.
Element #3 is ' '. Элемент "Young" безвозвратно утерян. Вместо присваивания $#people можно было сказать:
$people[10_000]=undef; Массивы Perl не являются разреженными. Другими словами, если у вас имеется 10000-й элемент, то должны присутствовать и остальные 9999 элементов. Они могут быть неопределенными, но все равно будут занимать намять. Из-за этого $array[time] или любая другая конструкция, где в качестве индекса используется очень большое целое число, является неудачным решением. Лучше воспользуйтесь хэшем. При вызове print нам пришлось написать scalar @array, поскольку Perl интерпретирует большинство аргументов в списковом контексте, а требовалось значение ©array в скалярном контексте.

> Смотри также -------------------------------- Описание $#ARRAY в perldata(1). 

© copyright 2000 Soft group