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

Автор: Topol Суббота, Август 11th, 2012 Нет комментариев

Рубрика: 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 создает хэш только с ОПРЕДЕЛЕННЫМ парами ключ/значение.

Источник:  internet-technologies.ru

Оставить комментарий

Чтобы оставлять комментарии Вы должны быть авторизованы.

Похожие посты