Ассоциированные массивы

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

%associativeArray = ("Jack A.", "Dec 2", "Joe B.",

"June 2", "Jane C.", "Feb 13");

$associativeArray{"Jennifer S."} = "Mar 20";

print "Joe's birthday is: " . $associativeArray{"Joe B."} . "\n";

print "Jennifer's birthday is: " . $associativeArray{"Jennifer S."} . "\n";

Будет выведено:

Joe's birthday is: June 2

Jennifer's birthday is: Mar 20

Ассоциированные массивы, так же как и обычные, представляют собой набор скалярных данных, отдельные элементы которого выбираются по индексному строковому значению. Элементы АМ не упорядочены, поэтому использовать их несколько сложнее, чем обычные, поскольку все строки (ключи) необходимо хранить вместе со значениями, на которые они ссылаются, например

%fruit=(”Green”,”Apple”,”Orange”,”Orange”,”Yellow”,”Banana”);

print $fruit{”Yellow”};

В результате из-за структуры АМ «ключ, значение», получается «Banana». Ключом также является «Green», которому будет соответствовать элемент массива «Apple».

Ассоциативные массивы (АМ) упрощают работу программистов с базами данных (БД). Для лучшего понимания использования АМ следует сопоставить ключи с ID в таблицах реляционных баз данных, которые представляют собой практически одно и то же. Рассмотрим пример.

%Folk = ('BG', 'Bill Gates',

'PR', 'SuperProgramer',

'DS', 'Djon Smith');

%State = ('BG', 'California',

'PR', 'Minsk',

'DS', 'Washington' );

%Job = ('BG', 'work in Microsoft',

'PR', 'work as programmer',

'DS', 'work as writer');

foreach $person ('PR', 'BG', 'DS') {

print "My name is $Folk{$person},\n",

"I live in $State{$person},\n",

"I $Job{$person} there.\n\n";

}

Будет выведено:

My name is SuperProgramer,

I live in Minsk,

I work as programmer there.

My name is Bill Gates,

I live in California,

I work in Microsoft there.

My name is Djon Smith,

I live in Washington,

I work as writer there.

Содержимое массивов можно представить и в другой форме, например : %Job = (‘BG’ => ‘work in Microsoft’, ‘PR’ => ‘work as programmer’, ‘DS’ => ‘work as writer’);

Индексы и элементы массива можно заключать как в апострофы, так и в кавычки. Чтобы перебрать все значения АМ, можно использовать оператор цикла foreach. Можно обращаться к ключам и значениям с помощью операторов keys и values.

Специальный ассоциативный массив %ENV хранит содержимое всех переменных, индексированных по имени. Так, %ENV{‘PATH’} возвращает текущее значение пути поиска. Существует также функция each, приводящая список, который состоит из двух элементов — ключа и значения. При каждом следующем вызове она возвращает новую пару, например

while (($key,$value) = each %ENV) {

print ”$key = $value\n”;

}

Строки

Двойные ковычки в строках

@array = (1..5);

print "@array\n";

Будет выведено:

1 2 3 4 5

Если вы хотите вывести значение переменной, а затем добавить символы в конце с помощью кода:

$word = "large";

print "He was a $wordr fellow.";

Будет выведено:

He was a fellow.

Переменная $wordr трактуется неправильно, если вы хотите вывести строку "He was a larger fellow". Эта проблема может быть исправлена с помощью операции кантактенации следующим образом:

$word = "large";

print "He was a " . $word . "r fellow.";

Вы можете также использовать круглые скобки, чтобы сообщить где имя начинается и заканчивается:

Использование специальной переменной $" при работе со строками. В следующем примере переменная $" = "," используется для вывода элементов массива, разделенных запятыми.

$" = ",";

@array = (1..5);

print "@array\n";

Будет выведено:

1,2,3,4,5

Вы можете использовать любой другой символ, например $" = "; " выведет точку с запятой и пробел.