sub pretty_table { my ($ary, $width, $no_center) = @_; my $header = shift @$ary; $width = $width ? qq!width="$width"! : ''; my $html = qq!\n!; my $cols = scalar @$header; $html .= get_row( $header, $cols, 'header' ); my $flip_flop = 1; for my $row_ref ( @$ary ) { my $class = $flip_flop ? 'light' : 'dark'; $html .= get_row( $row_ref, $cols, $class ); $flip_flop ^= 1; } $html .= qq! \n \n \n!; $html .= "
 
\n"; $html = qq!
\n
\n$html\n
\n
! unless $no_center; return $html } sub get_row { my ( $row_ref, $cols, $class ) = @_; my $html = qq! \n!; for my $td ( 0.. $cols-1 ) { my $data = $row_ref->[$td] || ' '; $html .= qq! $data\n!; } $html .= " \n"; return $html; }