Работа с хэшами в Perl

Инициализация (очистка) хэша

Самый быстрый способ очистки — это присвоение пустого списка.

Реализация

my %hash = ();

Примечание

Часто спрашивают, как инициализировать указатель на хэш (hash ref). Указатель — это скалярная переменная и инициализируется она соответствующим образом. Например:

my $hash_ref;
 my $hash_ref = 0; # zero

Добавление пары ключ/значение в хэш

В примерах, приведенных ниже, кавычки вокруг ключей могут быть опущены, если ключи — идентификаторы.

Хэш:

Решение

$hash{ 'key' } = 'value'; # хэш

 $hash{ $key } = $value; # хэш, с использованием переменной

Указатель на хэш:

Решение

$href->{ 'key' } = 'value'; # указатель на хэш

 $href->{ $key } = $value; # указатель на хэш, с использованием переменной

Добавление нескольких пар ключ/значение в хэш

Решение

Эти операции эквивалентны, просто второй более читаем.

%hash = ( ‘key1’, ‘value1’, ‘key2’, ‘value2’, ‘key3’, ‘value3’ );

%hash = (
key1 => ‘value1’,
key2 => ‘value2’,
key3 => ‘value3’,
);

Копирование хэшей

Решение

my %hash_copy = %hash; # копирование хэша

 my $href_copy = $href; # копирование указателя на хэш

Удаление одной пары ключ/значение

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

Решение

Хэш:

delete $hash{$key};

Указатель на хэш:

delete $hash_ref->{$key};

Перебор всех пар ключ/значение

Пример, приведенный ниже, печатает все пары ключ/значение.

Решение

Использование функции each с циклом while. Обратите внимание, что each переберет пары в случайном порядке, но порядок будет совпадать с перебором с помощью функций keys и values.

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

Для указатель на хэш небольшое отличие:

while ( my ($key, $value) = each(%$hash_ref) ) {
 print "$key => $valuen";
 }

Решение

Использование функции keys с циклом for

for my $key ( keys %hash ) {
 my $value = $hash{$key};
 print "$key => $valuen";
 }

Пример

my $file = $ARGV[0] || "-";

 my %from = ();

 open FILE, "< $file" or die "Can't open $file : $!";

 while( <FILE> ) {
 if (/^From: (.*)/) { $from{$1}++ } # считаем повторение отправителя
 }

 close FILE;

 for my $sender ( sort keys %from ) {
 print "$sender: $from{$sender}n";
 }

Получение размера хэша

Решение

print "size of hash: " . keys( %hash ) . ".n";

Solution

my $i = 0;

 $i += scalar keys %$hash_ref; # метод 1: явный скалярный контекст
 $i += keys %$hash_ref; # метод 2: неявный скалярный контекст

Использование указателей на хэш

Решение

sub foo
 {
 my $hash_ref;

 $hash_ref->{ 'key1' } = 'value1';
 $hash_ref->{ 'key2' } = 'value2';
 $hash_ref->{ 'key3' } = 'value3';

 return $hash_ref;
 }

 my $hash_ref = foo();

 print "ключи... ", sort keys %$hash_ref, "...n";

Функция строящая хэш из хэшей и возвращающая указатель на хэш

Решение

sub foo
 {
 my ( $login, $p, $uid, $gid, $gecos, $dir, $s );

 my %HoH = ();

 my $file = '/etc/passwd';
 open( PASSWD, "< $file" ) or die "Can't open $file : $!";

 while( <PASSWD> ) {
 ( $login, $p, $uid, $gid, $gecos, $dir, $s ) = split( ':' );

 $HoH{ $login }{ 'uid' } = $uid;
 $HoH{ $login }{ 'gid' } = $gid;
 $HoH{ $login }{ 'dir' } = $dir;
 }

 close PASSWD;

 return %HoH;
 }

Доступ к хэшу из хэшей с помощью указателей. Вывод значений

Решение

my $rHoH = foo();

 my( $uid, $gid, $dir );

 for my $login ( keys %$rHoH ) {

 $uid = $rHoH->{ $login }->{ 'uid' }; # метод 1. Более читабельный
 $gid = ${ $rHoH->{ $login } }{ 'gid' }; # метод 2
 $dir = ${ ${ $rHoH }{ $login } }{ 'dir' }; # метод 3. Менее читабельный

 print "uid: $uid, gid: $gid, dir, $dir.n";
 }

Решение

my $rHoH = foo();

 for my $k1 ( sort keys %$rHoH ) {
 print "k1: $k1n";
 for my $k2 ( keys %{$rHoH->{ $k1 }} ) {
 print "k2: $k2 $rHoH->{ $k1 }{ $k2 }n";
 }
 }

Функция строящая хэш из хешей из хешей и возвращающая указатель на хэш

Решение

sub foo
 {
 my %HoHoH = ();

 while( ... ) {

 if( /LOCATION:/ ) {

 ...

 } elsif( /MODULE:/ ) {

 $HoHoH{ $loc }{ $module_type }{ MODULE_NAME } = $module_name;

 } elsif( $ARGS_ALLOWED ) {

 $HoHoH{ $loc }{ $module_type }{ $arg_name } = $arg_value;

 }

 }

 return %HoHoH;
 }

Доступ к хэшу из хэшей из хэшей с помощью указателей. Вывод значений.

Решение

my $rHoH = foo();

 for my $k1 ( sort keys %$rHoHoH ) {
 print "$k1n";

 for my $k2 ( sort keys %{$rHoHoH->{ $k1 }} ) {
 print "t$k2n";

 for my $k3 ( sort keys %{$rHoHoH->{ $k1 }->{ $k2 }} ) {
 print "tt$k3 => $rHoHoH->{ $k1 }->{ $k2 }->{ $k3 }n";
 }
 }
 }

Вывод ключей и значений из хэша, полученного с помощью указателя

Решение

while( my ($k, $v) = each %$hash_ref ) {
 print "ключ: $k, значение: $v.n";
 }

Определение существования значения в хэше

Решение

print "Значение СУЩЕСТВУЕТ, но может быть не определено.n"
        if exists $hash{ $key };

 print "Значение ОПРЕДЕЛЕНО, но может быть false.n"
        if defined $hash{ $key };

 print "Значение TRUEn"
        if $hash{ $key };

Пример

Допустим, мы выполнили SQL запрос, который может вернуть записи, содержащие значение NULL. Перед тем как использовать результат запроса нам необходимо проверить, ОПРЕДЕЛЕНЫ ли полученные значения. Обратите внимание, функция sql_fetch_hashref() соединяется с сервером баз данных, подготавливает запрос, выполняет его и получает указатель на хэш с помощью DBI функции fetchrow_hashref().

my $answers = 'a,b,c,d,e';

 my $sql = "select max_time, $answers from questions " .
 'where question_number=?';
 my $hash_ref = sql_fetch_hashref( $sql, $q );

 my @answers = split ',', $answers;

 my $max_time = $hash_ref->{max_time} || '60';

 my $hash_ref_ans;
 for my $letter ( @answers ) {
 $hash_ref_ans->{ $letter } = $hash_ref->{ $letter }
 if defined $hash_ref->{ $letter };
 }

Цикл for создает хэш только с ОПРЕДЕЛЕННЫМ парами ключ/значение.