How to parse the atributes of an empty node

I am trying to parse the attributes of an empty node "<link>" which reside in multiple DCRs but can't seem to retrieve the values. Following is the structure of the DCR file.

<?xml version="1.0" encoding="UTF-8" ?>
<Data>
<Page2>
<Links_and_Attachments>
<Article_Links>

<Related_Content_Links>
<Related_Content_Link>
<link Type = 'Article' linkValue = '28'/>
</Related_Content_Link>
</Related_Content_Links>

<Related_Content_Links>
<Related_Content_Link>
<link Type = 'Article' linkValue = '34'/>
</Related_Content_Link>
</Related_Content_Links>

<Related_Content_Links>
<Related_Content_Link>
<link Type = 'Article' linkValue = '33'/>
</Related_Content_Link>
</Related_Content_Links>

</Article_Links>
</Links_and_Attachments>
</Page2>
</Data>

Following is the code snippet:
foreach my $dcrPath (@dcr_Path)
{
my $dcr = $dcrPath;
my $xml = '';
if (open(IN, "<$dcr"))
{
local $/;
$xml = <IN>;
close(IN);
}

my $rootnode = TeamSite::XMLnode->new($xml);
my @list = $rootnode->get_node_list('Page2.Links_and_Attachments.Article_Links.Related_Content_Links');
foreach my $node (@list)
{
my @myNodes = $node->get_node_list('Related_Content_Link.link');
foreach my $subnode(@myNodes)
{
print "type: ",$subnode->get_attrib('Type'),"\n";
print "linkvalue: ",$subnode->get_attrib('linkValue'),"\n\n";
}
}
}

Edited by sabih on 01/11/05 12:14 PM (server time).

Find more posts tagged with

Comments

Adam Stoller

foreach my $dcrPath (@dcr_Path)
{
my $dcr = $dcrPath; # Why bother? why not just use $dcrPath?
my $xml = '';
if (open(IN, "<$dcr"))
{
local $/;
$xml = <IN>;
close(IN);
}

my $rootnode = TeamSite::XMLnode->new($xml);
my @list = $rootnode->get_node_list('Page2.Links_and_Attachments.Article_Links.Related_Content_Links');
# As defined in your XML snippet, each Related_Content_Links
# element contains *one* Related_Content_Link element which itself contains
# *one* link element - as such, I am not sure why you are using get_node_list within
# this loop, instead try just accessing the node values
foreach my $node (@list)
{
my @myNodes = $node->get_node_list('Related_Content_Link.link');
foreach my $subnode(@myNodes)
{
print "type: ",$subnode->get_attrib('Type'),"\n";
print "linkvalue: ",$subnode->get_attrib('linkValue'),"\n\n";
}

my $link = $node->get_node('Related_Content_Link.link');
print "type: " . $link->value('@Type') . "\n";
print "linkvalue: " . $link->value('@linkValue') . "\n\n";
}
}I just tested this and it seems to work given your example.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

sabih

Somehow its not returning anything for me when I use it with actual DCR files which have more nodes then mentioned in the example.

Edited by sabih on 01/11/05 01:12 PM (server time).

Adam Stoller

Well, since I don't have an example of one of those DCRs - I can't test the code I suggested against it.
If you want to post one of those DCRs (feel free to replace existing strings of potentially proprietary data with other data -- but make sure to leave values where there are values so that the sample is indicative of the real deal) - I can try it again.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com