Perl and nested replicants

Ottawa_IWOV

Hi All -

I can easily user Perl to obtain the values from a replicant in a DCR:

$parser = TeamSite::XMLparser->new();
$rootnode = $parser->parse($xml);
@level_one_reps = $rootnode->list('Level 0');
for $level_one_rep (@level_one_reps) {
$level_one = $level_one_rep->value("item");
print "Level One: $level_one\n";
@reps = $rootnode->list('Level 1');

}#end foreach

What is the solution for a replicant that's nested inside another replicant. I tried a number of things but nothing worked.

Ideas?

jbonifaci

my $parser = TeamSite::XMLparser->new();
my $rootnode = $parser->parse($xml);
my @level_one_reps = $rootnode->list('Level 0');
foreach my $level_one_rep (@level_one_reps)
{
my @level_two_reps = $level_one_rep->list('Level 1');
foreach my $level_two_rep (@level_two_reps)
{
...
}
}Let me know if you have any questions.

~Jeff