#!/usr/bin/perl --
use strict;
use warnings;
use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->ignore_unknown(0);;
$tree->implicit_tags(0);
$tree->no_expand_entities(1);
$tree->ignore_unknown(0);
$tree->ignore_ignorable_whitespace(0);
$tree->no_space_compacting(1);
$tree->store_comments(1);
$tree->store_pis(1);
$tree->parse(q{
- site_user
- compare_hidden
- average_speed_answer 25 60 30 60 ^M
calls_waiting 300 500 300 500 ^M
many more rows here
post_ivr_calls_handled Wisconsin 50 100 50 100 ^M
post_ivr_calls_handled Wyoming 50 100 50 100 ^M
- calls_waiting_good_high
- calls_waiting_warning_low
});
$tree->eof;
my @li = $tree->findnodes( q{ //li[ contains( ., 'average' ) ] } ) ;
for my $ll ( @li ){
$ll->dump;
print $ll->as_text, "\n";;
}
__END__
- @0.1.7.1
"average_speed_answer 25 60 30 60 ^M"
@0.1.7.1.1
"\x0a calls_waiting 300 500 300 500 ^M"
@0.1.7.1.3
"\x0a many more rows here\x0a post_ivr_calls_handled Wisconsin 50 100 50..."
@0.1.7.1.5
"\x0a post_ivr_calls_handled Wyoming 50 100 50 100 ^M"
@0.1.7.1.7
"\x0a"
average_speed_answer 25 60 30 60 ^M
calls_waiting 300 500 300 500 ^M
many more rows here
post_ivr_calls_handled Wisconsin 50 100 50 100 ^M
post_ivr_calls_handled Wyoming 50 100 50 100 ^M