my $gxmlConfigObjt = new XML::Simple(
forcearray => 1
,keyattr => {}
,rootname => 'feedback'
);
# OPEN : Open the file...
#
my $gxmlConfigDoc = $gxmlConfigObjt->XMLin( $gxmlConfigFile );
####
.$gxmlConfigDoc = {
. 'item' => [
. { 'zip-code' => ['03036']
. ,'city' => ['Chester']
. ,'name' => ['Adym S. Lincoln']
. ,'address' => ['123 Lane Road']
. ,'state' => ['NH']
. },
. { 'zip-code' => ['03103']
. ,'city' => ['Manchester']
. ,'name' => ['Joseph C. Lincoln']
. ,'address' => ['1050 Perimeter Road']
. ,'state' => ['NH']
. }
. ]
.};
####
$gxmlConfigDoc{item}[++$#{gxmlConfigDoc{item}}] = {
'zip-code' => ['01880'],
'city' => ['Wakefield'],
'name' => ['Whatdb'],
'address' => ['20 Harvard Mill Sq'],
'state' => ['MA']
};
#$gxmlConfigDoc{item} = { 'item' => [
# {
# 'zip-code' => ['01880'],
# 'city' => ['Wakefield'],
# 'name' => ['Whatdb'],
# 'address' => ['20 Harvard Mill Sq'],
# 'state' => ['MA']
# }
# ]
# };
#push @{ $gxmlConfigDoc{item} },
# 'item' => [
# {
# 'zip-code' => ['01880'],
# 'city' => ['Wakefield'],
# 'name' => ['Whatdb'],
# 'address' => ['20 Harvard Mill Sq'],
# 'state' => ['MA']
# }
# ]
#;