Инициализация (очистка) хэша
Самый быстрый способ очистки - это присвоение пустого списка.
Реализация
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 Cant 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 Cant 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 создает хэш только с ОПРЕДЕЛЕННЫМ парами ключ/значение.