Perl-хеш

Хэш — это набор пар ключ/значение .

Хэш-переменные в Perl начинаются со знака процента (%).

Доступ к формату элемента хэша: ${key} .

Вот простой пример хеша:

Пример

#!/usr/bin/perl % data = ( ' google ' , ' google.com ' , ' codercto ' , ' codercto.com ' , ' taobao ' , ' taobao.com ' ) ; " $ data{'google'} = $ data {'google'} n " ; " $ data {'codercto'} = $data {'codercto'} n " ; " $ data{'taobao'} = $data {'taobao'} n " ;

Выполняя вышеуказанную программу, результат вывода:

Создать хэш

Существует два способа создания хэша:

1. Установите значение для каждого ключа.

 $data{'google'} = 'google.com';$data{'codercto'} = 'codercto.com';$data{'taobao'} = 'taobao.com';

2. Настройка через список

Первый элемент в списке является ключевым, а второй элемент — значением.

 %data = ('google', 'google.com', 'codercto', 'codercto.com', 'taobao', 'taobao.com');

Вы также можете использовать символ => для установки ключа/значения:

 %data = ('google'=>'google.com', 'codercto'=>'codercto.com', 'taobao'=>'taobao.com');

Следующий пример представляет собой вариант приведенного выше примера, в котором вместо кавычек используется - :

 %data = (-google=>'google.com', -codercto=>'codercto.com', -taobao=>'taobao.com');

Таким образом, в ключе не могут появляться пробелы. Способ чтения элементов:

 $val = $data{-google}$val = $data{-codercto}

Доступ к хэш-элементам

Формат элемента хэша доступа: ${key} , пример следующий:

Пример

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ; " $ data{'google'} = $ data {'google'} n " ; " $ data {'codercto'} = $data {'codercto'} n " ; " $ data{'taobao'} = $data {'taobao'} n " ;

Выполняя вышеуказанную программу, результат вывода:

Чтение хэш-значения

Извлекать значения из хеша можно так же, как из массива.

Хэш-значение извлекается в формат синтаксиса массива: @{key1,key2} .

Пример

#!/uer/bin/perl %data = ( - Таобао => 45 , - Google => 30 , - кодеркто => 40 ) @array = @data { - taobao , - codercto } ;​ " Массив: @array n " ;

Выполняя вышеуказанную программу, результат вывода:

 Массив: 45 40

Прочитайте хэш-ключ и значение

Прочитать все ключи

Мы можем использовать функцию ключей для чтения всех ключей хеша. Синтаксис следующий:

 ключи %HASH

Эта функция возвращает массив всех ключей для всех хешей.

Пример

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %данные ; печать " $names [0] n " печать ; " $names [ 1] n " ; " $names [2] n " ;

Выполняя вышеуказанную программу, результат вывода:

 таобаоgooglecodercto

Аналогичным образом мы можем использовать функцию значений для чтения всех значений хеша. Формат синтаксиса следующий:

 значения %HASH

Эта функция возвращает массив всех значений для всех хешей.

Пример

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' => ' taobao.com ' ) @urls = values ; %данные ; печать " $urls [ 0] n " ; " $urls [ 1] n " ; " $urls [2] n " ;

Выполняя вышеуказанную программу, результат вывода:

 taobao.comcodercto.comgoogle.com

Проверьте, существует ли элемент

Если вы прочитаете пару ключ/значение, которой нет в хеше, будет возвращено неопределенное значение и во время выполнения появится предупреждение.

Чтобы избежать этой ситуации, мы можем использовать функцию существования , чтобы определить, существует ли ключ, и прочитать его, когда он существует:

Пример

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ; if ( существует ( $data { ' facebook ' } ) ) { распечатать " URL-адрес Facebook: $data {'facebook'} n " } ; еще { распечатать « Ключ Facebook не существует n » }

Выполняя вышеуказанную программу, результат вывода:

 Ключ Facebook не существует

В приведенном выше коде мы использовали оператор IF...ELSE , который мы подробно рассмотрим в следующих главах.

Получить размер хеша

Размер хеша — это количество элементов. Мы можем получить размер хеша, сначала получив все элементы массива ключа или значения, а затем вычислив количество элементов массива. Пример следующий:

Пример

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ; @keys = keys; %данные ; $размер = @ ключи ; " 1 - Размер хэша: $ size n " @values ​​= значения %данные ; $размер = @ значения ; " 2 - Размер хеша: $size n " ;

Выполняя вышеуказанную программу, результат вывода:

 1 - Размер хеша: 32 - Размер хеша: 3

Добавить или удалить элементы из хеша

Добавление пар ключ/значение можно выполнить с помощью простого присваивания. Но чтобы удалить элемент хеша, вам нужно использовать функцию удаления :

Пример

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %данные ; $размер = @ ключи ; " 1 - Размер хеша: $size n " # Добавляем элементы $ data { ' facebook ' } = ' facebook.com ' ;​​ %данные ; $размер = @ ключи ; " 2 - Размер хеша: $size n " # Удалить элементы из хеша удалить $data { ' taobao ' } ; @keys = ключи %данные ; $размер = @ ключи ; " 3 - Размер хеша: $size n " ;

Выполняя вышеуказанную программу, результат вывода:

 1 - размер хеша: 32 - размер хеша: 43 - размер хеша: 3