VPF::Как узнать, что лежит по ссылке.

DEER

Дата 7.2.2008, 11:12 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

Добрый день.
Если xml вида

Код


<?xml version="1.0" encoding="UTF-8"?>
<t>
<p systemtype="1"/>
<card type="11"/>
<card type="8"/>
<card type="11"/>
<card type="11"/>
<card type="8"/>
</t>

Получаю его структуру

Код


my $config = XMLin($row->{value});
#И смотрим что там лежит
elog NOTICE, Dumper($config);

Вот что получается

Код


NOTICE:  $VAR1 = {
          'card' => [
                    {
                      'type' => '11'
                    },
                    {
                      'type' => '8'
                    },
                    {
                      'type' => '11'
                    },
                    {
                      'type' => '11'
                    },
                    {
                      'type' => '8'
                    }
                  ],
          'p' => {
                 'systemtype' => '1'
               }
        };

получаем карты

Код


my $cards = $config->{'card'};
my %rows = ();
foreach my $card (@$cards) {
    #тут их обработка
}

Проблема возникла если в xml лежит не несколько, а одна карта

Код


<?xml version="1.0" encoding="UTF-8"?>
<t>
<p systemtype="1"/>
<card type="11"/>
</t>

Получается, что в переменную $cards попадает ссылка на скаляр, а не на массив, и вылетает ошибка

Код


Not an ARRAY reference at line 30.

В связи с этим вопрос.
Как узнать, что лежит по ссылке? Массив или не массив.

Спасибо за внимание.

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

amg

Дата 7.2.2008, 11:54 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Цитата(DEER @ 7.2.2008, 11:12

)

В связи с этим вопрос.Как узнать, что лежит по ссылке? Массив или не массив.

perldoc -f ref

DEER

Дата 7.2.2008, 12:11 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

спасибо

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

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