Re: Text::Table formatting with HTML

[jeffa]

You could try parsing the textual output from Text::Table but if you are the one controlling the program, then you already have the data you want to wrap into an HTML table. From the Text::Table docs:

use Text::Table;
my $tb = Text::Table->new(
        "Planet", "Radius\nkm", "Density\ng/cm^3"
);
$tb->load(
        [ "Mercury", 2360, 3.7 ],
        [ "Venus", 6110, 5.1 ],
        [ "Earth", 6378, 5.52 ],
        [ "Jupiter", 71030, 1.3 ],
);
print $tb;

If you already have the data in memory, then you can instead try something like so (using my shiny new Spreadsheet::HTML)

use Spreadsheet::HTML qw( generate );

my @data =(
        ["Planet", "Radius\nkm", "Density\ng/cm^3"],
        [ "Mercury", 2360, 3.7 ],
        [ "Venus", 6110, 5.1 ],
        [ "Earth", 6378, 5.52 ],
        [ "Jupiter", 71030, 1.3 ],
);
print generate( data => \@data );

Spreadsheet::HTML can attempt to load data from a number of file formats but plain old text is not one of them because there are very many different possibilities. It is certainly possible, but likely at the expense of making my API more complex. Hope this helps! :)

P.S. I just released v0.36 which fixes a bug introduced in v0.34 in which the animate feature was breaking. This new release also features the ability to produce Handsontable tables, which are extremely slick Excel-like data grids. Very nice stuff.

[yunglean808]

Thank you so much this helped a ton and was exactly what I was looking for!!!

[jeffa]

You are welcome. I have this sort of passion for HTML tables. :)

If you are processing very large tables then you would be much better off printing out your own tags or even better, using a templating solution like Template:

use strict;
use warnings;
use Template;

my @data =(
    ["Planet", "Radius\nkm", "Density\ng/cm^3"],
    [ "Mercury", 2360, 3.7 ],
    [ "Venus", 6110, 5.1 ],
    [ "Earth", 6378, 5.52 ],
    [ "Jupiter", 71030, 1.3 ],
);

my $tmpl = '<table>[% FOREACH row = rows %]
<tr>[% FOREACH cell = row %]
    <td>[% cell %]</td>[% END %]
</tr>[% END %]
</table>
';

my $table = Template->new;
my $html = '';
$table->process( \$tmpl, { rows => \@data }, \$html ) or warn $table->
+error, $/;

print $html;