No, but it should be trivial to write a function (simply copy-paste the loop from synopsys or test file, and sprinkle html generating functions)

See use CGI tr td start_table site:perlmonks.org -> CGI && tables nested within tables., help with start_table of CGI.pm

With HTML::TableExtract its as easy as $table->as_HTML because its just an overloaded HTML::Element

#!/usr/bin/perl --
use strict; use warnings;
use CGI qw/ *table *Tr Td /;
use HTML::TableContentParser;

my $html   = <<'HTML';
<table>
<tr><td>1</td><td>2</td><td>3</td></tr>
<tr><td>ro</td><td>sham</td><td>bo</td></tr>
<tr><td>&lt;ro&gt;</td><td>&lt;sham&gt;</td><td>&lt;bo&gt;</td></tr>
</table>
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 => '&lt;ro&gt;' },
              { data => '&lt;sham&gt;' },
              { data => '&lt;bo&gt;' }
            ] }
          ] } ];



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
<table>
  <tr>
    <td>1</td>
    <td>2</td>
    <td>3</td>
  </tr>
  <tr>
    <td>ro</td>
    <td>sham</td>
    <td>bo</td>
  </tr>
  <tr>
    <td>&lt;ro&gt;</td>
    <td>&lt;sham&gt;</td>
    <td>&lt;bo&gt;</td>
  </tr>
</table>
[download]

Instead of HTML::TableContentParser , I would standardize on HTML::Tree and xpath, see

• Re^2: How to write CSS selector to extract more than one value from html source using scrappy module?
• web::scraper using an xpath
• Re: Help With Online Table Scraper
• extract data from html with xpath
• http://www.xpathtester.com/# Simple online XPath tester
• htmltreexpather.pl

Is your extraction procedure destructive? If so, why not make a copy first, and destroy that?

Don't mean to sound like I'm sniping... but your plan really sounds like the long way around... especially if the original table is less than perfectly regular or uses CSS.

A generalized solution might benefit from using a templating system, such as the ubiquitous Template::Toolkit, to actually do the grunt-work of generating the output HTML once you have “flipped” the data structure.

Or, perhaps you don’t have to actually flip the thing, because a template can grab data from a function just as easily as it can get it from a variable.   So you could write a tiny function f(x,y) that returned element (y,x) ...

A template can be trivially changed, as often as (the customer | your boss | the marketing department) wants to change it.   The “magic” comes from the (already in place ...) HTML parser and, maybe, just a handful of clever functions that a template can call.   The issue that is most likely to be (constantly) changed, namely, “tweaking the output,” has been factored-out such that it contributes little or nothing to code complexity and ongoing maintenance.

WOW, just WOW

LOL