Hola a todos,
Estoy intentando generar un fichero XML dinámicamente con el aspecto siguiente:
<ProjFields>
<ProjField Label="Pepe" Format="%s">
<StatField Family="fam1" Field="Field1" />
</ProjField>
<ProjField Label="Jose" Format="%s">
<StatField Family="fam2" Field="Field2" />
</ProjField>
...
</ProjFields>
Lo que llevo hecho hasta ahora:
my $selectedField;
foreach $selectedField (keys %availableFields) {
push @{$tempXML->{ProjFields}->{ProjField}},{
Label => $availableFields{$selectedField}->,
Format => $availableFields{$selectedField}->
};
push @{$tempXML->{ProjFields}->{ProjField}->{StatField}},{
Family => $availableFields{$selectedField}->,
Field => $availableFields{$selectedField}->
};
}
my $exploitableXML = XMLout($tempXML,RootName=> "Projection");
print Dumper($exploitableXML);
Como resultado del ...