use XML::Simple;
use Data::Dumper;
my $xml = XMLin(\*DATA);
print Dumper $xml;
__DATA__
hello
gender
####
$VAR1 = {
'AppObject' => 'hello',
'valueTargetPair' => [
{
'value' => 'MALE',
'targetPo' => 'Incoming 1'
},
{
'value' => 'FEMALE',
'targetPo' => 'Incoming 2'
}
],
'AppObjectField' => 'gender'
};
####
my $xml = XMLin(\*DATA);
bless $xml, $xml->{AppObject};
warn unless ref $xml eq 'hello';
####
my $xml = XMLin(\*DATA);
foreach my $entry (@{$xml->{valueTargetPair}})
{
print "value=", $entry->{value}, $/;
print "targetPo=", $entry->{targetPo}, $/;
}
####
value=MALE
targetPo=Incoming 1
value=FEMALE
targetPo=Incoming 2