parsing with XMLparser

Ottawa_IWOV

Anyone know the best way to parse this XML doc with TeamSite::XMLparser:

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE ealist
[
<!ELEMENT ealist (ea)*>
<!ELEMENT ea (key, value*)>
<!ELEMENT key (#PCDATA)>
<!ELEMENT value (#PCDATA)>
<!ATTLIST value encoding (text|hex) "text">
]
>

<ealist>
<ea>
<key>TeamSite/Metadata/title</key>
<value>Hello</value>
</ea>
<ea>
<key>TeamSite/Metadata/body</key>
<value>Goodbye</value>
</ea>
</ealist>

This is what is returned on a -l with iwextattr. I wish it did return the DTD nonsense.

All I really want in the <key> values saved to variables, ala

my $rootnode = $parser->parse($xml); # get root DCRnode objec
$title = $rootnode->('TeamSite/Metadata/body');

Any thoughts?


Lucas Cochrane
lucas.cochrane@baucanada.com

Migrateduser

I've never tried to parse a doc with an internal DTD using XMLparser, but I would expect it to do the right thing and ignore it. What you're going to have to do is get a list of all the EAs, check and check the keys on those until you find the node you want, something along the lines of

my @eas = $rootnode->get_node_list('ealist.ea');
my $value;
foreach my $ea (@eas) {
    if ($ea->value('key') eq "TeamSite/Metadata/body") {
        $value = $ea->value('value');
        last;
    }
}
print "V: $value\n";

NOTE: That's off the top of my head without testing it, so there may be some syntactical errors or what not, but it should get you going the right direction.

Edited by robhuffstedtler on 11/11/04 03:28 PM (server time).