LINUX.ORG.RU

Строка или хэш в перле


0

0

Есть ссылка, котораю может быть строкой или хэшем (пустым).

Как узнать, что она есть?

(Речь об XML::Simple, как реагировать на поле author?
$VAR1 = [
          {
            'date' => '2008.06.16',
            'url' => 'virtual/phet/sim/java/electric-hockey/electric-hockey.jnlp',
            'category' => 'Simulation; Physics; Electricity; ',
            'title' => "\x{42d}\x{43b}\x{435}\x{43a}\x{442}\x{440}\x{438}\x{447}\x{435}\x{441}\x{43a}\
x{438}\x{439} \x{445}\x{43e}\x{43a}\x{43a}\x{435}\x{439}",
            'author' => 'Ruth Chabay'
          },
          {
            'date' => '2008.06.16',
            'url' => 'virtual/phet/sim/flash/my-solar-system/my-solar-system.swf',
            'category' => 'Simulation; Physics; Cosmos; Mechanics; ',
            'title' => "\x{421}\x{43e}\x{43b}\x{43d}\x{435}\x{447}\x{43d}\x{430}\x{44f} \x{441}\x{438}\x{441}\x{442}\x{435}\x{43c}\x{430}",
            'author' => {}
          }
        ];


)
☆☆

if (ref($VAR) eq 'ARRAY')
{
  warn "IT IS ARRAY";
} else if (ref($VAR) eq 'HASH')
{
  warn "IT IS HASH";
}

правда это работает если на ссылку не кастали bless.

dilmah ★★★★★
()
Ответ на: комментарий от dilmah

Спасибо, сгодится на будущее; пока избавился от хэша со стороны XML::Simple - либо строка, либо ничего.

ip1981 ☆☆
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.