##

#!/usr/bin/perl -w
use strict;
use XML::SMART;
my $strTestString =' J&K;  combine';
my $XML = XML::Smart->new(q``, 'XML::Smart::Parser');
my $xmlfile = "C:/perl/xml/test.xml";
my $para={SI => 'description'};
$XML->{ISSUES}{ISSUE}{'ISSUE-DESC'}{P}[0]=$para;
$XML->{ISSUES}{ISSUE}{'ISSUE-DESC'}{P}[0]->set_binary(0);
$XML->{ISSUES}{ISSUE}{'ISSUE-DESC'}{P}[0]->set_cdata(1);
$XML->{ISSUES}{ISSUE}{'ISSUE-DESC'}{P}[0]->content(0,"$strTestString");
$XML->{ISSUES}{ISSUE}{'ISSUE-DESC'}{P}[1]->set_cdata(0);
$XML->{ISSUES}{ISSUE}{'ISSUE-DESC'}{P}[1] = "test";
XML->save($xmlfile, nometagen => 1, forceutf8 => 1);