[Perl] XML Parser

[basileus_82]

'logdir' => '/var/log/foo/',
'debugfile' => '/tmp/foo.debug',
'server' => {
'sahara' => {
'osversion' => '2.6',
'osname' => 'solaris',
'address' => [ '10.0.0.101', '10.0.1.101' ]
},
'sahara' => {
'osversion' => '6.5',
'osname' => 'irix',
'address' => '10.0.0.102'
},
'sahara' => {
'osversion' => '2.0.34',
'osname' => 'linux',
'address' => [ '10.0.0.103', '10.0.1.103' ]
}
}
}



e considerando


'logdir' => '/var/log/foo/',
'debugfile' => '/tmp/foo.debug',
'server' => {
'sahara' => {
'osversion' => '2.6',
'osname' => 'solaris',
'address' => [ '10.0.0.101', '10.0.1.101' ]
}
}
}



l problema è questo

ci possono essere casi in cui "sahara" è un array oppure solo una variabile;
ho bisogno di sapere coem valutare la cosa

Dovrei domandarmi "se $var1->{logdir}->{server}->{sahara} è un array allora fai questo, altrimenti se solo variabile, fai quest'altro"

come posso fare???

ho provato con exists, ma niente