Select Code to Download

my $materialmapping_table_xml = XML::LibXML->createDocument( "1.0", "U
+TF-8");
my $materialmapping_table_xml_root = $materialmapping_table_xml->creat
+eElement("masterdata");
...
$materialmapping_item3->setAttribute("pr_family",$family);

$materialmapping_table_xml_root->addChild($materialmapping_item3);

<item2 duble="1" pr="c" pr_width="1250" pr_family="2" />
<item2 duble="2" pr="c" pr_width="1250" pr_family="2" />
...
<item3 pr_width="1250" pr="c" duble="2" pr_family="2" />
<item3 pr_width="1250" pr="c" duble="2" pr_family="2" />
<item2 pr="a" duble="3" pr_width="1250" pr_family="2" />

<item3 pr="a" duble="1" pr_width="1250" pr_family="2" />
<item3 pr="b" duble="1" pr_width="1250" pr_family="2" />
...
<item3 pr="b" duble="2" pr_width="1250" pr_family="2" />
<item3 pr="c" duble="2" pr_width="1250" pr_family="2" />
<item2 pr="a" duble="3" pr_width="1250" pr_family="2" />