#!/usr/bin/perl -- use strict; use warnings; use HTML::TableExtract ; Main( @ARGV ); exit( 0 ); sub Main { my $te = HTML::TableExtract->new( br_translate => 0 ); $te->parse( SkewHtml() ); $te->eof; my $tab = $te->first_table_found; for my $rxrow ( $tab->row_indices ){ for my $rxcol ( $tab->col_indices){ my $cell = $tab->space( $rxrow, $rxcol ); print "row($rxrow)col($rxcol) = $cell\n"; } } } ## end of Main sub SkewHtml { return q{ skew test
head0 head1 head2 head3
THIS IS A WHOLE ROW-CELL OF JUNK
JUNK Tasty tidbit (1,1) JUNK Tasty tidbit (1,3)
BIG JUNK Tasty tidbit (2,3)
Tasty tidbit (3,0) Tasty tidbit (3,3)
Tasty tidbit (4,0) Tasty tidbit (4,3)
JUNK BUTTON Tasty tidbit (5,2) Tasty tidbit (5,3)
}; } ## end of SkewHtml __END__ row(0)col(0) = head0 row(0)col(1) = head1 row(0)col(2) = head2 row(0)col(3) = head3 row(1)col(0) = THIS IS A WHOLE ROW-CELL OF JUNK row(1)col(1) = THIS IS A WHOLE ROW-CELL OF JUNK row(1)col(2) = THIS IS A WHOLE ROW-CELL OF JUNK row(1)col(3) = THIS IS A WHOLE ROW-CELL OF JUNK row(2)col(0) = JUNK row(2)col(1) = Tasty tidbit (1,1) row(2)col(2) = JUNK row(2)col(3) = Tasty tidbit (1,3) row(3)col(0) = JUNK row(3)col(1) = BIG JUNK row(3)col(2) = BIG JUNK row(3)col(3) = Tasty tidbit (2,3) row(4)col(0) = Tasty tidbit (3,0) row(4)col(1) = BIG JUNK row(4)col(2) = BIG JUNK row(4)col(3) = Tasty tidbit (3,3) row(5)col(0) = Tasty tidbit (4,0) row(5)col(1) = BIG JUNK row(5)col(2) = BIG JUNK row(5)col(3) = Tasty tidbit (4,3) row(6)col(0) = JUNK BUTTON row(6)col(1) = JUNK BUTTON row(6)col(2) = Tasty tidbit (5,2) row(6)col(3) = Tasty tidbit (5,3)