Re: Build Table with 'n' rows and 'm' columns

[cLive ;-)]

TIMTOWTDI ;-)

#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $data = [ [1,23,3],[4,5,6],[2,3,6],[7,3,7] ];

my $q = CGI->new();

print $q->header.
      $q->start_html.
      $q->table(
          $q->Tr(
              [ map { $q->td($_) } @{$data} ]
          )
      ).
      $q->end_html;