One element could either have a single value or an array of values.
I agree with Your Mother, sounds like you might be using XML::Simple. I have to strongly recommend against this module (as its own documentation does, see the section "Status of this Module"), except for maybe the very simplest of cases, of which this is probably not one. Instead, look into other XML parsing modules, such as XML::LibXML, XML::Twig, or XML::Rules, which can output data structures much like XML::Simple:
use warnings;
use strict;
use Data::Dump;
use XML::Rules ();
my $XML1 = '<root><phone><callTo>X</callTo></phone></root>';
my $XML2 = '<root><phone><callTo>Y</callTo>
<callTo>Z</callTo></phone></root>';
my $parser = XML::Rules->new(
stripspaces => 3|4,
rules => [
root => 'pass',
phone => 'as is',
callTo => 'content array',
_default => sub { die "Unknown tag $_[0]" },
] );
dd $parser->parse($XML1);
dd $parser->parse($XML2);
__END__
{ phone => { callTo => ["X"] } }
{ phone => { callTo => ["Y", "Z"] } }
As for XML::Simple, note its ForceArray option:
use XML::Simple qw/:strict XMLin/;
dd XMLin($XML1, KeyAttr=>{}, ForceArray=>[]);
dd XMLin($XML2, KeyAttr=>{}, ForceArray=>[]);
dd XMLin($XML1, KeyAttr=>{}, ForceArray=>['callTo']);
__END__
{ phone => { callTo => "X" } }
{ phone => { callTo => ["Y", "Z"] } }
{ phone => { callTo => ["X"] } }
Lastly, to answer your original question, if you have a scalar that holds either a single value or an array reference, one way to handle that is like the following. However, it should be clear from the above that this is not the best way to fix your problem.
foo( "one" );
foo( ["two", "three"] );
sub foo {
my $x = shift;
# the following does the trick
my @values = ref $x eq 'ARRAY' ? @{$x} : $x;
for my $val (@values) {
print "<$val>\n";
}
}
__END__
<one>
<two>
<three>
Update: Refactored last code example slightly to make the solution more clear. Update 2: Used callTo => 'content array' instead of 'as array' to make XML::Rules output identical to XML::Simple. | 