Dude ... it's right there in the first couple of lines of XML::XPath:
my $nodeset = $row->find('AD'); foreach my $node ( $nodeset->get_nodelist ) { my $xref = $node->find( '@XREF' )->string_value; my $fname = $node->find( 'FName')->string_value; my $lname = $node->find('LName')->string_value; my $bdate = $node->find('BDate')->string_value; my $no = $node->find('No')->string_value; my $state = $node->find('State')->string_value; my $ssss = $node->find('SSSS')->string_value; my $train = $node->find('Train')->string_value; my $volume = $node->find('Volume')->string_value; my $cno = $node->find('CNo')->string_value; my $id = $node->find('ID')->string_value; print "1-$trans - 2-$cert - 3-$xref - 4-$fname - 5-$lname - 6-$b +date - 7-$no - 8-$state - 9-$ssss - 10-$train - 11-$volume - 12- +$cno - 13-$id\n"; }
but then again ... I prefer to use XSLT for stuff like this ... I love the pain
In reply to Re^3: XML Path and Perl
by derby
in thread XML Path and Perl
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |