Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    
    my $count = $xc->findvalue('count(//Article//Sect//LI)', $dom);
    print "$count list nodes found.\n" if $count;