xml parsing in external task

I am parsing xml in my external task. it works fine when I replace new value by old ones for my nodes but can somebody give me idea how to insert new node in it.

In attached xml, if I try to update value of california from 871 to say 885, I can achieve through set_inner_xml functionality of XMLNode but how to add new node say Alabama with value 895.

Find more posts tagged with

Comments

Adam Stoller

I am parsing xml in my external task. it works fine when I replace new value by old ones for my nodes but can somebody give me idea how to insert new node in it.

In attached xml, if I try to update value of california from 871 to say 885, I can achieve through set_inner_xml functionality of XMLNode but how to add new node say Alabama with value 895.

Please post the actual code you're using to try and accomplish this.

kaalraa

I am parsing xml in my external task. it works fine when I replace new value by old ones for my nodes but can somebody give me idea how to insert new node in it.

In attached xml, if I try to update value of california from 871 to say 885, I can achieve through set_inner_xml functionality of XMLNode but how to add new node say Alabama with value 895.

Could you please elaborate as how are you trying to acheive the same till now?

Enthu

Please post the actual code you're using to try and accomplish this.

With this Code I can update value of region id in dcr replicant after comparing it with region.xml.

open(DCR,$file) or die("$! - Cannot open DCR (r)...get help from the teamsite admin for $file");

local $/=undef;

my $xml = ;

close DCR;

my $rootnode = TeamSite: Smiley Very Happy CRnode->new($xml);

my $text = “Teamsitepath/region.xml”;

my $regionRootnode = TeamSite::XMLnode->new($text);

my @arrRegion = $regionRootnode->get_node_list('region');

my $varIncrement = 0 ;

for(my $varInc=0;$varInc<$replicantSize;$varInc++)

{

$region= $rootnode->value("Contact_Us[$varInc].Region_Name");

foreach $regionNode(@arrRegion)

{

$regionFromXml = $arrRegion[$varIncrement]->get_attrib('name');

if($regionFromXml =~ $region)

{

$id = $regionNode->value();

$rootnode->set_inner_xml("Contact_Us[$varInc].Region_Unique_ID", "$id");

}

$varIncrement++ ;

}

$varIncrement = 0;

$id=0;

}

Issue –

While comparing dcr and region.xml if I find new region in dcr which doesn’t exist in region.xml then I first update region.xml by inserting new region and its corresponding id in region.xml and then I need to insert new region id value in dcr. Everything is working fine except I am not sure how can I add a new node using region.xml. Say I want to add Alabama with id 885 after Texas in region.xml

Adam Stoller

Please tell me you are not writing code using MSWord as an editor. If you are - go find a brick wall and bounce your head off of it for about 10 minutes - it will have about the same effect.

Also - you should carefully scope the [un]setting of the line separator - this:

open(DCR, $file)
    or die("$! - Cannot open DCR (r)...get help from the teamsite admin for $file");
local $/ = undef;
my $xml = <DCR>;
close DCR;

would be much better written as this:

open(DCR, $file)
    or die("$! - Cannot open DCR (r)...get help from the teamsite admin for $file");
my $xml = do { local $/; <DCR> };
close DCR;

Then you have another problem:

my $rootnode       = TeamSite:CRnode->new($xml);
my $text           = "Teamsitepath/region.xml";
my $regionRootnode = TeamSite::XMLnode->new($text);

Both DCRnode's and XMLnode's

new()

method takes an XML string. You did it correctly for TeamSite: Smiley Very Happy

CRnode->new() but you seem to be expecting TeamSite::XMLnode->new() to parse a reference to a file instead of an XML string.

Then you have code referencing

$replicantSize

which isn't shown in the code you posted - we'll have to assume it has some reasonable setting.

You loop getting Region_Name from the Contact_Us replicant in your DCR, and then loop through each of the supposed region names from your region.xml file looking to see if you can find a match - but you're using a regex directive (

) without any delimeters (e.g.:

/.../

- so I have to guess you aren't using the

strict

and/or

warnings

pragmas and aren't testing your code with iwperl -w -c script to verify its syntax (big no-no IMO) - so there's a question as to whether you want a regex or more likely you want

instead. Picking up from where we left off, the inner loop gets even more confusing because in one case your doing a

foreach

and just within you're using an array reference to get the name attribute - I have a feeling you want one or the other and not both here. Assuming you find a match, you set

$id

and then use that to try to set some inner XML, then you increment the array index item to look at and do it again - trying to find another match for the value of

$region

?

Frankly - I think your code, as posted, has too many problems with it to even begin to see if we can figure out the problem you thought you were posting about.

For those interested in a more readable version of the posted code - here:

open(DCR, $file)
    or die("$! - Cannot open DCR (r)...get help from the teamsite admin for $file");
local $/ = undef;
my $xml = <DCR>;
close DCR;

my $rootnode       = TeamSite:CRnode->new($xml);
my $text           = "Teamsitepath/region.xml";
my $regionRootnode = TeamSite::XMLnode->new($text);
my @arrRegion      = $regionRootnode->get_node_list('region');
my $varIncrement   = 0;
for (my $varInc = 0; $varInc < $replicantSize; $varInc++) {
    $region = $rootnode->value("Contact_Us[$varInc].Region_Name");
    foreach $regionNode (@arrRegion) {
        $regionFromXml = $arrRegion[$varIncrement]->get_attrib('name');
        if ($regionFromXml =~ $region) {
            $id = $regionNode->value();
            $rootnode->set_inner_xml("Contact_Us[$varInc].Region_Unique_ID", "$id");
        }
        $varIncrement++;
    }
    $varIncrement = 0;
    $id           = 0;
}