use XML::Simple;
use Data::Dumper;
my $ref = XMLin(\*DATA);
print Dumper $ref;
__DATA__
-
item_name_1
yes
5
-
item_name_2
yes
5
####
$VAR1 = {
'item' => {
'item_name_1' => {
'uptime' => '5',
'downtime' => {},
'working' => 'yes'
},
'item_name_2' => {
'uptime' => '5',
'downtime' => {},
'working' => 'yes'
}
}
};
####
my $ref = XMLin(\*DATA,KeyAttr=>[]);
####
$VAR1 = {
'item' => [
{
'uptime' => '5',
'downtime' => {},
'working' => 'yes',
'name' => 'item_name_1'
},
{
'uptime' => '5',
'downtime' => {},
'working' => 'yes',
'name' => 'item_name_2'
}
]
};
####
print $_->{name} for @{$ref->{item}};