use XML::Simple; use strict; use warnings; my ($id, $value); #group 1 paramters $id = "ID1"; $value = "Recording INformation"; getParameter($id, $value); $id = "ID2"; $value = "Pausing INformation Record "; getParameter($id, $value); $value = "Information Loading"; getParameter($id, $value); $value = "Information loading Complete"; #From here group 2 parameter starts my $id = 2; $value = "Picture loading"; getParameter($id, $value); my $id = 3; $value = "Picture loading complete"; getParameter($id, $value); #Group 2 parameters end. sub getParameter { my ( $id,$value) = @_; my $hash = { 'Key' => $id, 'Value' => $value }; my $xml = { Parameter => [] }; push( @{ $xml->{Parameter} } , { key => $hash->{Key}, content => $hash->{Value} } ); print XMLout( $xml, RootName => 'Parameter' ); }
If I need something like<Parameter key="ID1">Recording INformation</Parameter> <Parameter key="ID2">Pausing INformation Record</Parameter> <Parameter key="ID2">Information Loading</Parameter> <Parameter key="ID2">Information loading Complete</Parameter>
What do I have to do? Thanks<Parameters> - <ParameterGroup ID="Group1"> <Parameter key="Key1">Some Value</Parameter> <Parameter key="Key2">Some Value</Parameter> <Parameter key="Key3">Some Value</Parameter> </ParameterGroup> - <ParameterGroup ID="Group2"> <Parameter key="Key1">Some Value</Parameter> <Parameter key="Key2">Some Value</Parameter> <Parameter key="Key3">Some Value</Parameter> </ParameterGroup> </Parameters>
In reply to Re^2: Which XML module to use for this scenario?
by Perllace
in thread Which XML module to use for this scenario?
by Perllace
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |