#!/usr/bin/perl --
use strict; use warnings;
use CGI qw/ *table *Tr Td /;
use HTML::TableContentParser;
my $html = <<'HTML';
1 | 2 | 3 |
ro | sham | bo |
<ro> | <sham> | <bo> |
HTML
#~ my $p = HTML::TableContentParser->new();
#~ my $tables = $p->parse($html);
#~ use DDS; die Dump($tables);
my $tables =
[ { rows => [
{ cells => [
{ data => 1 },
{ data => 2 },
{ data => 3 }
] },
{ cells => [
{ data => 'ro' },
{ data => 'sham' },
{ data => 'bo' }
] },
{ cells => [
{ data => '<ro>' },
{ data => '<sham>' },
{ data => '<bo>' }
] }
] } ];
for my $t (@$tables) {
print start_table();
for my $r ( @{ $t->{rows} } ) {
print start_Tr();
for my $c ( @{ $r->{cells} } ) {
print Td( $c->{data} );
}
print end_Tr();
}
print end_table();
}
__END__
$ perl html.tablecontentparser.to.html.pl |xml_pp
1 |
2 |
3 |
ro |
sham |
bo |
<ro> |
<sham> |
<bo> |