Домашная страница
Владимира Городова
Пример программы на Perl с объяснением хешей
#!/usr/bin/perl -w
# Пример скрипта, работающего с хешами
# Автор: Городов В.А. 04.07.2015 г.
# Это хеш:
my %hash;
# К нему можно обратиться по ключу
$hash{'key1'}='value1';
# Можно присвоить несколько значений сразу
my %hash2 = ('key1', 'value1', 'key2', 'value2');
# Или сделать это красиво:
my %beauty_hash = (
'Ў«®¤ЁЄ ' => 'Єа бЁў п',
'ЎаоҐвЄ ' => 'г¬ п',
'ал¦ п' => 'ўҐбҐ« п',
);
# Обратите внимание, что в конце запятую можно и не ставить, но при добавлении значений её можно забыть. Так что все ставят.
# Можно получить массивы с ключами или значениями хеша.
@beauty_hash_keys = keys %beauty_hash;print "@beauty_hash_keys\n";
@beauty_hash_values = values %beauty_hash;print "@beauty_hash_values\n";
# Или количество элементов в хеше:
$beauty_hash_count = keys %beauty_hash;print "‚ᥣ® ¤Ґўг襪: $beauty_hash_count\n";
# Можно поменять местами ключи и значениями
my %clever_hash = reverse %beauty_hash;
# И перебрать все значения несколькими способами:
foreach $key (sort keys %beauty_hash){
print "$key => $beauty_hash{$key} \n";
}
# Более экстровагантный способами
while ( ($key, $val) = each %clever_hash ) {
print "$key => $val\n";
}
# Еще можно проверить, есть ли элементы в хеше
if (%hash){
#Убедиться что есть определенный ключ и удалить его
delete $hash{'key1'} if ( exists $hash{'key1'} );
}
# А еще есть хеш %ENV с переменными среды
print "$ENV{'PATH'}\n";
#EOF