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

Создание ассоциативных массивов

(key1, value1, key2,value2, keyN, valueN)

ВНИМАНИЕ В конструкторе ассоциативного массива должно содержаться четное число элементов. В противном случае во время выполнения будет сгенерировано сообщение об ошибке.

(keyl => valuel, key2 => value2, ... , keyN => valueN)

%hash = ("Матросов", "217-000-001",
         "Чаунин", "218-001-001");

$hash{"Матросов"} = "717-000-001";

print $hash{"Матросов"};

$hash{"Матросов"} = "188-000-009"; # Изменение
                                   # существующего элемента
$hash("редактор"} = "199-000-009"; # Добавление нового
                                   # элемента

СОВЕТ При задании ключа в конструкторе ассоциативного массива или при обращении к соответствующему элементу по ключу не обязательно заключать его в кавычки, если ключ представлен последовательностью латинских символов и цифр. В этом случае интерпретатор будет рассматривать его как простое слово и автоматически заключать в одинарные кавычки. Поэтому, например, следующие два способа обращения к элементу с ключом user синтаксически допустимы и приведут к одинаковому результату: $hash{"user"} и $hash{user}.

ВНИМАНИЕ При изменении значения элемента ассоциативного массива следует внимательно задавать значение ключа. Если ключ будет отличаться от ключа существующего элемента, то операция присваивания приведет к добавлению в ассоциативный массив нового элемента без какого-либо предупреждающего сообщения интерпретатора.

print "Телефон редактора: $hash{"редактор"}\n";

Телефон редактора: 217-000-009

@hasn{"Чаунин", "редактор"}; # Фрагмент хэша

%ar = (a=>l, c=>3, d=>4); 
@а = @аr{"а".."с"};
print "@а";

Use of uninitialized value in join or string at temp.pl line 3.
1  3

Стандартные функции обработки ассоциативных массивов

delete($hash{"peдактоp"}); # Удаление элемента
delete(@hash{"Maтpocoв", "Чаунин"}); # Удаление фрагмента

ВНИМАНИЕ. Удалить элемент хэш-массива можно только функцией delete.Присваивание элементу с заданным ключом неопределенного значения $hash{"clue"}= undef не удаляет элемент массива, а просто делает значение момента с ключом "clue" неопределенным undef. Его использование в качестве операнда какой-либо операции приведет к отображению сообщения об использовании неинициализированной переменной, если включен режим отображения предупреждающих сообщений интерпретатора.

exists($hash("редактор"));

#!perl -w
%array = ( "first", 2, "third", 3, second,  2);
$array{"first"} = undef;
$key = "first";
# Печать будет выполнена, элемент инициализирован
print "Элемент '$key' существует\n" if exists $array{$key};
$key = "fourth";
# Печать не будет выполнена, элемент не инициализирован 
print "Элемент '$key' существует\n" if exists $array{$key}; $key = "second";
# Напечатает 2
print delete($array{$key}), "\n";
# Печать не будет выполнена, элемент не инициализирован 
print "Элемент  '$key' существует\n" if exists $array{$key}; $key = "fifth";
# Отобразится предупреждавшее сообщение 
print delete($array{$key}), "\n";

while (($key, $value) = each(%hash)) {
  print "$key => $value\n";
}

Чаунин => 218-001-001 
Матросов => 217-000-001
редактор => 217-000-009

print join(" ", keys(%hash)), "\n";
print join(" ", values($hash)), "\n";

Чаунин Матросов редактор 
216-001-001 188-000-009 199-000-009

ЧаунинМатросовредактор 
218-001-001188-000-009199-000-009

@keys = keys(%hash); 
@values = values (%hash);
print "@keys\n";
print "@values\n";

#hash = (
         "Чаунин"   => "218-001-001"
         "Матросов" => "217-000-001"
         "редактор" => "217-000-009" 
        );
%reverse = reverse(%hash);
#%reverse = (
#	218-001-001 => "Чаунин"
#	217-000-001 => "Матросов"
#	217-000-009 => "редактор"
#	)

%salary = (
           Воb   => 5000,
           Mike  => 6000,
           Steve => 50OO,
           John  => 5000,
           Paul  => 6000
);
%reverse = reverse(%salary); # Обращение хэша 
# Печать обращенного хэша 
foreach $i (keys %reverse ) {
  print $i." => ", $reverse{$i}, "\n"; 
}

5000 => Воb 
6000 => Paul

Связанный список

%linked_list = ( 
                 "А1" => "А2", 
                 "А2" => "А3",
                 "A3" => "А4",
                 "A4" => "А5",
                 "A5" => ""
               );
$header = "А1";

sub printLinkedList {
  # Получение заголовка 
  $item = shift; # используется массив @_
  # Печать значения первого узла 
  $i = 1; 
  print "Элемент $i: $item", "\n";
  # Печать значений узлов связанного списка,
  # пока не дойдем до пустой строки "" 
  while ($linked_list{$item}) { 
    ++$i;
    print "Элемент $i: $linked_list{$item}", "\n"; 
    $item = $linked_list{$item}; # ссылка на следующий узел
  }
}

PrintLinkedList($header);

Элемент1: А1
Элемент2: A2
Элемент3: A3
Элемент4: A4
Элемент5: A5

sub addNode {
  # Получение номера узла, после которого добавляем
  $number = shift;
  # Получение значения узла
  $element = shift;
  # Получение заголовка узла
  $item = shift;
  # Получение узла с номером $number 
  $i = 0;
  whi1e(++$i < $number) { 
    $item = $linked_list{$item}; # ссылка на следующий узел
  }
  # Запомнили указатель узла, после которого добавляем
  $temp = $linked_list{$item};
  # Добавили новый узел
  $linked_list{$element} = $temp; 
  # Изменили указатель в узле, после которого добавили.
  # на добавленный элемент 
  $linked_list{$item} = $element;
}

addNode(2, "X", $header);
printLinkedList($header);

Элемент 1:	А1
Элемент 2:	А2
Элемент 3:	X
Элемент 4:	A3
Элемент 5:	A4
Элемент 6:	А5

Следующая страница

Содержание главы