Estoy intentando generar un fichero XML dinámicamente con el aspecto siguiente:
Using xml Syntax Highlighting
<ProjFields>
<ProjField Label="Pepe" Format="%s">
<StatField Family="fam1" Field="Field1" />
</ProjField>
<ProjField Label="Jose" Format="%s">
<StatField Family="fam2" Field="Field2" />
</ProjField>
...
</ProjFields>
<ProjField Label="Pepe" Format="%s">
<StatField Family="fam1" Field="Field1" />
</ProjField>
<ProjField Label="Jose" Format="%s">
<StatField Family="fam2" Field="Field2" />
</ProjField>
...
</ProjFields>
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Lo que llevo hecho hasta ahora:
Using perl Syntax Highlighting
my $selectedField;
foreach $selectedField (keys %availableFields) {
push @{$tempXML->{ProjFields}->{ProjField}},{
Label => $availableFields{$selectedField}->[2],
Format => $availableFields{$selectedField}->[3]
};
push @{$tempXML->{ProjFields}->{ProjField}->{StatField}},{
Family => $availableFields{$selectedField}->[1],
Field => $availableFields{$selectedField}->[0]
};
}
my $exploitableXML = XMLout($tempXML,RootName=> "Projection");
print Dumper($exploitableXML);
foreach $selectedField (keys %availableFields) {
push @{$tempXML->{ProjFields}->{ProjField}},{
Label => $availableFields{$selectedField}->[2],
Format => $availableFields{$selectedField}->[3]
};
push @{$tempXML->{ProjFields}->{ProjField}->{StatField}},{
Family => $availableFields{$selectedField}->[1],
Field => $availableFields{$selectedField}->[0]
};
}
my $exploitableXML = XMLout($tempXML,RootName=> "Projection");
print Dumper($exploitableXML);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Como resultado del Dump, me da el siguiente error:
- Código: Seleccionar todo
Pseudo-hashes are deprecated at FqStatsMQRMerge.pl line 395.
No such pseudo-hash field "StatField" at FqStatsMQRMerge.pl line 395.
Es decir, el segundo push provoca problemas...
¿Alguien me puede echar una mano?
¡¡¡Muchas gracias!!!
Felipe