my $result = 'Pass'; my %ParamGroup = ( ParameterGroupID => '1' ); my $ns = '...'; my $schema = '...'; my $xsi_ns = 'http://www.w3.org/2001/XMLSchema-instance'; my $doc = XML::LibXML::Document->new('1.0', 'utf-8'); my $root = $doc->createElementNS($ns, "TestResult"); $root->setAttributeNS($xsi_ns, 'xsi:schemaLocation' => $schema); { my $result_node = $doc->createElement('result'); $result_node->appendTextNode($result); $root->appendChild($result_node); } { my $params_node = $doc->createElement("Parameters"); for my $param_group (keys %ParamGroup) { my $param_group_node = $doc->createElement($param_group); $param_group_node->appendTextNode($ParamGroup{$param_group}); $params_node->appendChild($param_group_node); } $root->appendChild($params_node); } $doc->setDocumentElement($root);
In reply to Re^3: How to add child nodes using XMLLib
by ikegami
in thread How to add child nodes using XMLLib
by Perllace
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |