I figured it out. just figured I'd send out what I did, in case anyone else
wanted to know:
use XML::XPath;
my $file = "blah.xml";
my $xml = XML::XPath->new(filename => $file);
foreach my $item ($xml->find('//DOC')->get_nodelist){
print "<dl>\n";
# Item num
print "<dt>Item #</dt><dd>".$item->find('ITEM_NO')->string_value."</dd>\n";
# Title
print "<dt>Title:</dt><dd>".$item->find('TITLE')->string_value."</dd>\n";
# Keywords
print "<dt>Keywords:</dt><dd>";
foreach my $kw ($item->find('KEYWORD')->get_nodelist){
print $kw->string_value."<br>\n";
}
print "</dl>\n";
}
This does exactly what I was looking for.
--Alex
On 10/26/05, Alex Brelsfoard <[EMAIL PROTECTED]> wrote:
>
> OK, so I'm new to handling XML in Perl.
> I think I've got most of what I need figured out, but I'm running into
> some difficutly in handling one situation.
> Each DOC has more than one KEYWORD entry.
> How do I pull out multiple KEYWORDs from this XML file using this style
> code?
>
> use XML::XPath;
> my $file = "blah.xml";
> my $xml = XML::XPath->new(filename => $file);
> print "<p>\n";
> foreach my $item ($xml->find('//DOC')->get_nodelist){
> print $item->find('NUMBER')->string_value."<br>\n";
> print $item->find('KEYWORD')->string_value."<br>\n";
> }
> print "</p>\n";
>
> Also, does anyone know of any good site(s) for Perl XML::XPath
> syntax/examples?
> Thanks a lot.
> --Alex
>
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
