#!/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)