inline but w/Perl parser?

TS 6.7.1 SP1
OD 6.2
Win2k3

I am using an inline tag in a datacapture.cfg to snag some label/value pairs to populate a drop-down. I had this bright idea to create an additional DCT/DCR to house these label/value pairs that my users can populate as they needed.

I had assumed that simply reading the DCR would allow me to populate the label/value pairs as needed but ultimately I need to parse the XML file generated by Teamsite. Can anyone point me in either a Perl direction or Teamsite direction to parse label/value pairs from a DCR? I have searched these forums and can't find a snippet to handle this. I apologize in advance, I'm not a Perl guru.

I have built the Perl to go get the passed DCR and am comfortable constructing the actual output but lack the knowledge to construct the parser. I'll be more than happy to post my Perl but wanted to see if I could find anyone that has done this previously.

I've started with a parsing loop that does this:

[html]
foreach my $line(@output_string)
{
# -- Ignore the ?xml or !DOCTYPE lines
if ($line !~ /xml/ && $line !~ /DOCTYPE/)
{
[/html]

Please be gentle to me as the FormsPublisher Developer's Guide falls short in giving me some examples. There's got to be a method to do this, eh?
-Dave

Find more posts tagged with

Comments

ISCBorisB

TS 6.7.1 SP1
OD 6.2
Win2k3

I am using an inline tag in a datacapture.cfg to snag some label/value pairs to populate a drop-down. I had this bright idea to create an additional DCT/DCR to house these label/value pairs that my users can populate as they needed.

I had assumed that simply reading the DCR would allow me to populate the label/value pairs as needed but ultimately I need to parse the XML file generated by Teamsite. Can anyone point me in either a Perl direction or Teamsite direction to parse label/value pairs from a DCR? I have searched these forums and can't find a snippet to handle this. I apologize in advance, I'm not a Perl guru.

I have built the Perl to go get the passed DCR and am comfortable constructing the actual output but lack the knowledge to construct the parser. I'll be more than happy to post my Perl but wanted to see if I could find anyone that has done this previously.

I've started with a parsing loop that does this:

[html]
foreach my $line(@output_string)
{
# -- Ignore the ?xml or !DOCTYPE lines
if ($line !~ /xml/ && $line !~ /DOCTYPE/)
{
[/html]

Please be gentle to me as the FormsPublisher Developer's Guide falls short in giving me some examples. There's got to be a method to do this, eh?
-Dave

There is no need to reinvent the wheel. Run perldoc on TeamSite: Smiley Very Happy

CRparser and TeamSite: Smiley Very Happy

CRnode Classes, that will give you an API you want.
See if you can leverage [post=124331]this[/post] code snippet for your needs. Note that DCR File *slurping* command (line #7) is mangled there (shows correctly in Quote mode).
It should be:
my $dcr_string = do{local $/; <HDCR>};

djo2112

Boris - You are AWESOME!!!

I am posting my partial code below in case anyone wants to do this in the future. (Remember, I am a hack Perl programmer!)

($dcr_string is read from the DCR file) and I left my actuals FleetItem, FleetName in the code as an example.

-Dave

[HTML]
# -- Header and Footer
my $XML_HEADER="\n\n";
my $XML_FOOTER="\n";

print $XML_HEADER;

my $rootnode = TeamSite: Smiley Very Happy

CRnode->new($dcr_string);

if ($rootnode)
{
my @alist = $rootnode->get_node_list('FleetItem');
foreach my $a (@alist)
{
# -- Construct label/value pair
my $XML_STR = "value('FleetName') . "'/>";
print $XML_STR;

}
else
{
print LOGFILE "ERROR parsing DCR - " . $rootnode->get_error();
}

print $XML_FOOTER;
[/HTML]

nipper

You would be better served by making this a perl module and either pass the node name as a parameter or make it generic, same is true for the name and value. You will use this code again and it is much better to use a PM than to cut and paste and change the code.

test.JPG

djo2112

I agree with you 100% Andy, I just wanted to help the peeps by posting some code as an example. Like you guys always say, "Here's an example, it's up to you to expand upon it!"

-Dave

ISCBorisB

I agree with you 100% Andy, I just wanted to help the peeps by posting some code as an example. Like you guys always say, "Here's an example, it's up to you to expand upon it!"

-Dave

The desire to help is admirable, be careful though and check your ground if you want to provide samples.

print LOGFILE "ERROR parsing DCR - " . $rootnode->get_error(); is incorrect, TeamSite: Smiley Very Happy

CRnode does not have
get_error() method. Further, your inline script will choke and die on TeamSite: Smiley Very Happy

CRnode::new if XML is malformed.
So, in your notation:[php]use strict;
use TeamSite: Smiley Very Happy

CRparser;
use TeamSite: Smiley Very Happy

CRnode;
...
print qq(\n\n);
my $parser = TeamSite: Smiley Very Happy

CRparser->new();
my $rootnode = $parser->parse($dcr_string, 'dcr');
if ($rootnode) {
printf(
qq(\n),
$_->value('FleetName'), $_->value('FleetName')
) foreach($rootnode->get_node_list('FleetItem'));
}
else {
print LOGFILE "ERROR parsing DCR - " . $parser->get_error());
}
print qq(\n);[/php]