ошибка "not an ARRAY reference"

[Yaroslav]

от чего она и как избавиться?

Код: [Выделить]

$tema{"Afisha"} = {
"A2" => {
"Ploter" => ["16", "3", "1шт", "10шт", "100шт" ],
"Ofset" => ["17", "3", "500шт", "1000шт", "5000шт" ]
} ,
"A3" => {
"Ploter" => ["18"],
"Printer" => ["19"],
"Ofset" => ["20"]
}
};
$tema{"Vizitki"} = {
"Shelkograf" => ["13"],
"Printer" => ["14"],
"Ofset" => ["15"]
};

foreach (sort {$tema{$a} <=> $tema{$b}} keys %tema) {
if ($tema{$_}[0] =~ /^(\\d+)$/) { print "$tema{$_} - ne"; }
else { print "$tema{$_} - ok"}
}

[NeoNox]

Отладка программ это хорошая вещь.
Ты получаеш в регулярку не то что думаеш
foreach (sort {$tema{$a} <=> $tema{$b}} keys %tema) {
   print for (keys %{$tema{$_}}); #проверка
   if ($tema{$_}[0] =~ /^(\\d+)$/) { print "$tema{$_} - ne"; }
   else { print "$tema{$_} - ok"}
}

[Yaroslav]

NeoNox:
Ты получаеш в регулярку не то что думаеш

как раз то что нужно то и получаю, а вот почему дальше, вместо того что б написать: А2 - окА3-ок
пишет: not an ARRAY reference .... лайн 23

[ondr]

Yaroslav
Видим "not an ARRAY reference". Берем словарик и переводим - "Это не ссылка на массив". Даже строка указана. Вопросы?

[Yaroslav]

ondr
NeoNox:
Спасибо, я думал что мой вариант тоже должен работать, а он гад...
выходит что самый оптимальный вариант этот:

Код: [Выделить]

foreach (sort {$tema{$a} cmp $tema{$b}} keys %tema) {
for (keys %{$tema{$_}} ) {
if ($_ =~ /^(\\d+)$/) { print "$_ -ne\\n" }
else { print "$_ -ok\\n"}
}
}

[ondr]

Yaroslav
Ну зачем же так пугаться и убегать от проблемы?
Как я понял она состоит в том, что ты путаешься при разыменовании ссылок?
Если так, то давай я выложу несколько вариантов для твоего примера:

%{$tema{Afisha}} - разыменование ссылки
$tema{Afisha}->{A2} - доступ к конкретному элементу

%{$tema{Afisha}->{A2}}
$tema{Afisha}->{A2}->{Ploter}

@{$tema{Afisha}->{A2}->{Ploter}}
$tema{Afisha}->{A2}->{Ploter}->

Теперь разберешься?

[Yaroslav]

ondr:
Ну зачем же так пугаться и убегать от проблемы?

да вроде я и не убегал, просто вариант который работает
мне нужен конечный вариант:
выводить ключ хеша
если значение[0] не цыфра - при нажатии на ссылку перейти на уровень дальше данного хеша
иначе - при нажатии на ссылку перейти к заполнению

ondr:
Как я понял она состоит в том, что ты путаешься при разыменовании ссылок?

как сказать, вроде не путаюсь, хотя после фразы "разыменовании ссылок" (которую слышу в первые) начал хаотично листать книгу :insane:

ondr:
Если так, то давай я выложу несколько вариантов для твоего примера:

вот тут то я и запутался. это ты показал как оно устроено или как
"разыменовывать ссылки" что б не уходить от проблемы? :confused:

как было написано в книге что то типа:
- если вы не разобрались с хешем, вы Перл не знаете

[ondr]

Yaroslav
У тебя есть структура данных.
Я лишь показал как с ней работать.

Прочитай все что найдешь про ссылки.
Если этого будет мало, сообщи. Передам тебе PDF какой-нибудь на русском.

А вообще совет: Сходи на рынок какой нибудь и посмотри компакт диски с перлом. На них часто кладут много много хорошей документации.

[Yaroslav]

ondr:
Теперь разберешься?

типа понял!!!
мне нужно проверить является значение масивом или хешем
а как это проверить?

[ondr]

print \'Это хЭШ! \' if ref $ref eq \'HASH\';

perldoc -f ref