Using iw_xml.pm or iw include inipl file

Hi All,

I want to use Pt modules i.e. iw_xml.pm or iw_include.pm....in my ipl file and not in tpl.
This is because i want to use inbuilt functionality of pt modules to access the xml elements.
like my $areapath = iwpt_dcr_value('dcr.workflowinformation.task[0].areavpath@v');

I know we have lot of other perl xml parsing modules even teamsite's Xmlparser. But even with that we have lot of coding to do..so many foreach statements.
But with this PT modules it will become very handy. (a thought... Smiley Happy

)
Have any one tried this out.

Thanks
Nikunj

Find more posts tagged with

Comments

dazzlad

Have you looked at TeamSite: Smiley Very Happy

CRParser?

Nikunj

Hi,
Thanks for the reply....
I tried something like this.

use TeamSite: Smiley Very Happy

CRparser;
my $config_xml;
# get config xml
my $config_file = "C:/TeamSite/wrklog.xml";
open ( XML, $config_file ) or return "cannot open config file";
while () { $config_xml .= $_; }
close XML;

my $parser = TeamSite: Smiley Very Happy

CRparser->new(); # create a DCRparser
my $docnode = $parser->parse("$config_xml",'document'); # fetch "document node"
my $val = $docnode->value('workflow.description');
print "Value: $val\n"; #this works fine....

MY Sample xml file
< workflow name="Publish LiveSite Content" active="t" owner="Test" creator="Test" activationtime="1201688523" >
< description > Test Desc < /description >
< tasks >
< id v="6157"/ >
< id v="6159"/ >
< id v="6160"/ >
< id v="6161"/ >
< id v="6162"/ >
< id v="6163"/ >
< /tasks >
< /workflow >

But i now i want array of tasks ids...so can u help me find the syntax for that.
When i used this:-
my @Val = $docnode->value('workflow.tasks.id@v');
It just gave me the first value not the array of tasksids..

Adam Stoller

Hi,
Thanks for the reply....
I tried something like this.

use TeamSite:CRparser;
my $config_xml;
# get config xml
my $config_file = "C:/TeamSite/wrklog.xml";
open ( XML, $config_file ) or return "cannot open config file";
while () { $config_xml .= $_; }
close XML;

my $parser = TeamSite:CRparser->new(); # create a DCRparser
my $docnode = $parser->parse("$config_xml",'document'); # fetch "document node"
my $val = $docnode->value('workflow.description');
print "Value: $val\n"; #this works fine....

MY Sample xml file
< workflow name="Publish LiveSite Content" active="t" owner="Test" creator="Test" activationtime="1201688523" >
< description > Test Desc < /description >
< tasks >
< id v="6157"/ >
< id v="6159"/ >
< id v="6160"/ >
< id v="6161"/ >
< id v="6162"/ >
< id v="6163"/ >
< /tasks >
< /workflow >

But i now i want array of tasks ids...so can u help me find the syntax for that.
When i used this:-
my @val = $docnode->value('workflow.tasks.id@v');
It just gave me the first value not the array of tasksids..

Try reading the perldoc for TeamSite::XMLnode - I believe that will give you what you are looking for here.

Nikunj

Hi
Thanks for the reply...
I had a look at all three pms...DCRparser, DCRNode, XmlNode...Almost same notes...
But i guess...we don't have function which will directly give me all attributes in array form as we can do with iwpt_dcr_value(....);
Please Let me know if am doing something wrong here...

Isnt there any we can use this iwpt functions in our ipls.....I had tried doing that...but i guess it need some parameters..i tried checking pms...but was bit difficult to undertsand... Smiley Sad

....

Adam Stoller

Hi
Thanks for the reply...
I had a look at all three pms...DCRparser, DCRNode, XmlNode...Almost same notes...
But i guess...we don't have function which will directly give me all attributes in array form as we can do with iwpt_dcr_value(....);
Please Let me know if am doing something wrong here...

Isnt there any we can use this iwpt functions in our ipls.....I had tried doing that...but i guess it need some parameters..i tried checking pms...but was bit difficult to undertsand.......

This works for me:

use strict;
use warnings;
use TeamSite::XMLnode;

my $xml = do { local $/; <DATA>; };
my $rootnode = TeamSite::XMLnode->new($xml);
my @val = map {
    $_->value('@v');
} (grep { $_->type() ne "CDATA" } $rootnode->get_node_list('tasks.*'));

print join("\n", @val) . "\n";

__DATA__
<workflow name="Publish LiveSite Content" active="t" owner="Test" creator="Test" activationtime="1201688523"> 
 <description> Test Desc  
 <tasks> 
  <id v="6157"/> 
  <id v="6159"/> 
  <id v="6160"/> 
  <id v="6161"/> 
  <id v="6162"/> 
  <id v="6163"/> 
 </tasks> 
</workflow>

Nikunj

Hi,
Thanks For the reply....Ghoti...
Gr8..this is what i wanted....
perl is great language....still lot of things to learn..... Smiley Happy

Agarwal

Hi All,

I want to use Pt modules i.e. iw_xml.pm or iw_include.pm....in my ipl file and not in tpl.
This is because i want to use inbuilt functionality of pt modules to access the xml elements.
like my $areapath = iwpt_dcr_value('dcr.workflowinformation.task[0].areavpath@v');

I know we have lot of other perl xml parsing modules even teamsite's Xmlparser. But even with that we have lot of coding to do..so many foreach statements.
But with this PT modules it will become very handy. (a thought...)
Have any one tried this out.

Thanks
Nikunj

Try using use XML: Smiley Very Happy

OM parser. I feel very comfortable using this for parsing.
You can create a instance of it in this way :-

use XML: Smiley Very Happy

OM;
my $parser = new XML: Smiley Very Happy

OM:

arser;
my $doc = $parser->parsefile ("file.xml");

Thanks
Akshat Agarwal

Agarwal

Hi All,

I want to use Pt modules i.e. iw_xml.pm or iw_include.pm....in my ipl file and not in tpl.
This is because i want to use inbuilt functionality of pt modules to access the xml elements.
like my $areapath = iwpt_dcr_value('dcr.workflowinformation.task[0].areavpath@v');

I know we have lot of other perl xml parsing modules even teamsite's Xmlparser. But even with that we have lot of coding to do..so many foreach statements.
But with this PT modules it will become very handy. (a thought...)
Have any one tried this out.

Thanks
Nikunj

You can use XML Smiley Very Happy

OM parser for this.

use XML: Smiley Very Happy

OM;
my $parser = new XML: Smiley Very Happy

OM:

arser;
my $doc = $parser->parsefile ("file.xml");

Thanks
Akshat Agarwal

Nikunj

Hi, Agarwal,
Thanks for ur reply...
See...here u use any parser...u will have to do lot of coding...
Just check out below conversation...try to analyze wat was i trying to do...
I want to fetch values just by using one liner code..or simpler code...
Ghoti's code...simple but powerful...
my @Val = map {
$_->value('@v');
} (grep { $_->type() ne "CDATA" } $rootnode->get_node_list('tasks.*'));...

gets all tasksids in an array... Smiley Happy

..

But Neways Thanks...... Smiley Happy