sub zParseHTMLFiles ($$) {
my ( $lrefFileList, $lrefColNames ) = @_;
my @ldata;
foreach my $lFile (@$lrefFileList) {
my $lTableExtract = HTML::TableExtract->new( headers => [@$lrefColNames] );
chomp($lFile);
$lTableExtract->parse_file($lFile);
foreach my $ls ( $lTableExtract->tables ) {
foreach my $lrow ( $lTableExtract->rows ) {
chomp( @$lrow[$#$lrow] );
push( @ldata, $lrow );
}
}
}
return \@ldata;
}