Re^2: Table in Perl CGI

[jeffa]

Thank you for checking out my module, this really is an honor. :) You can simplify a few things, for what it is worth:

use strict;
use warnings;
use Spreadsheet::HTML qw( portrait );

my %hash = (
    kumquat     => 'orange',
    pomegranate => 'red',
    cherimoya   => 'green',
    lingonberry => 'purple'
);

my @data = ( [sort keys %hash], [map $hash{$_}, sort keys %hash] );

print portrait(
    data   => \@data,
    indent => '  ',
    th => { style => { background => $data[1] } },
    td => { style => { background => $data[1] } },
);

__DATA__
<table>
  <tr>
    <th style="background: green">cherimoya</th>
    <th style="background: orange">kumquat</th>
    <th style="background: purple">lingonberry</th>
    <th style="background: red">pomegranate</th>
  </tr>
  <tr>
    <td style="background: green">green</td>
    <td style="background: orange">orange</td>
    <td style="background: purple">purple</td>
    <td style="background: red">red</td>
  </tr>
</table>

[1nickt]

It's working nicely ... I wrote the post above after simply testing it out in response to the OP; I'm using it now to build some nightly reports. I particularly like how easy it is to pass attributes to the tag builder. You're right about simplifying, I haven't needed to use a callback at all (but it's nice to know it's built-in for when it's needed).