VPF::Ключи "многомерного" хэша - Форум программистов

Sadok

Дата 8.12.2005, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Есть у меня хэш вида

Код


$hash{x}{y}{z} = "qwerty";

пытаюсь делать влоб:

Код



foreach ($k1, $k2, $k3) keys %hash {
    print "$k1\n"; #в надеже получить 'x'
    print "$k2\n"; #в надеже получить 'y'
    print "$k3\n"; #в надеже получить 'z'
}

Ругается, конечно, на синтаксис. Пусть. Задача у меня другая: получить в переменные наименования ключей. Никак не могу понять perldoc что?

Это сообщение отредактировал(а) Sadok - 8.12.2005, 15:42

Kiber_rat

Дата 8.12.2005, 16:48 (ссылка)

(нет голосов)

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

Репутация: нет
Всего: 9

Опиши задачу поподробнее. Не могу понять что ты хочешь получить.

Код

$hash{x}{y}{z} = "qwerty";

тут ты задаешь значение qwerty для ключа z анонимного хэша, ссылка на который хранится ключе y анонимного же хэша, ссылка на который хранится в ключе x хэша %hash.
Давай распишем по другому твой %hash

Код

%hash = (
    x => {
        y => {
            z => 'qwerty',
        }
    }
)

- это то что ты хотел задать? Потому что у тебя в %hash есть только один ключ (х) и, следовательно, задасться у тебя только значение $k1 в котором будет лежать ссылка на хэш.

--------------------

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

Sadok

Дата 9.12.2005, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Kiber_rat
Да, так и есть (посмотрел через Комодо). smile

Это лечится или мне придумывать другой алгоритм?

Kiber_rat

Дата 9.12.2005, 11:48 (ссылка)

(нет голосов)

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

Репутация: нет
Всего: 9

Это зависит от того, что тебе нужно smile

Опиши какие данные ты собираешься хранить, отсюда и будем плясать. Многомерный хэш не слишком часто нужен. Возможно тебе подойдет массив хэшей или что-то подобное.

--------------------

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

sharq

Дата 9.12.2005, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

Sadok что такое $hash{x}{y}{z}?
Это хеш хешей хешей. Для того, чтобы пробежать по каждому хешу, нужен цикл!

Поэтому:

Код


# вместо хеша используем ссылку на хеш 
my $hash = { 
     'x' => {
        'y' => {
            'z' => 'qwerty',
        },
    },
};

while (my ($key, $hash_x) = each %$hash) {
  print "$key:\n";
  while (my ($key2, $hash_y) = each %$hash_x) {
    print "  $key2:\n";
    while (my ($key3, $value3) = each %$hash_y) {
      print "    $key3: $value3\n";
    }
  }
}

По кажому хешу, а точнее ссылки на хеш, пробежались циклом.

Чтобы посмотреть все содержимое хеша и не бегать по каждой структуре, можно делать так:

Код


use Data::Dumper;

print Dumper($hash);

Почитай про использование ссылок в perl + perldoc perlreftut.

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

korob2001

Дата 9.12.2005, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

О многомерных хешах так же можешь почитать эту тему:
http://forum.vingrad.ru/index.php?showtopic=50549

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Sadok

Дата 10.12.2005, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

sharq, korob2001

Всем спасибо. Разобрался.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »