PERL многомерный хэш. Вывести первый ключ
Допустим у нас есть многомерный %hash
Код:
my %hash; |
Порядок подхэшей (old, new, sold) по умолчанию не сохраняется.
Код:
my %hash; |
** конечная задача была уже решена год с лишним назад, и, вроде, там решил по-другому организовывать данные. так что решение носит только характер "а интересно как/возможно ли"
это понятно, но интересовало другое. я хотел достать ключ-1, зная ключ-2 и его значение вообще получается такой алгоритм: Код:
my $found_key; |
Во первых не break, а last, во вторых такое лучше сделать grep'ом:
Код:
my $found_key = (grep { $hash{$_}{'old'} eq 120 } (keys %hash))[0]; |
Цитата:
p.s. возьму на заметку! |
Время: 10:39. |
Время: 10:39.
© OSzone.net 2001-