Which of the many HTML modules or templating modules are you using at present and where are you having trouble with whatever you are using?

If you are not using any such tool at present perhaps you should at least mention the copntext for the question. It's pretty unusual for HTML tables to stand on their own and the rest of the task will influence what is most appropriate for your task.

You might like to start by looking at modules such as Template toolkit (for heavy lifting) or HTML::DBTable, HTML::Table, HTML::STable, HTML::HashTable or HTML::QuickTable (selected at - almost - random from them many available on CPAN).

Hi, Try like this,

use strict;
use warnings;
use DBI;
use HTML::TableTiler;    

my @matrix;

my $dbh = DBI->connect( "DBI:mysql:project") or die "Can't connect to 
+Oracle database: $DBI::errstr\n";
my $sth = $dbh->prepare("select * FROM modules");
$sth->execute || $sth->errstr();

while (my @row = $sth->fetchrow_array) {
 push (@matrix, [@row]);
}

$dbh->disconnect;

my $tt = HTML::TableTiler->new();
    
print $tt->tile_table(\@matrix);
[download]

Thanks ikegami++

There room for a some small improvements.
• You don't check the result of $dbh->prepare.
• You don't check the result of $dbh->fetchrow_array.
• Your loop can be replaced with $sth->fetchall_arrayref.
• You can also condense the code further using $dbh->selectall_arrayref.

use strict;
use warnings;

use DBI ();
use HTML::TableTiler ();

my $dbh = DBI->connect("DBI:mysql:project")
   or die "Can't connect to Oracle database: $DBI::errstr\n";

my $matrix = $dbh->selectall_arrayref("SELECT * FROM modules");
die "Unable to fetch query results: $DBI::errstr\n" if $dbh->err;

my $tt = HTML::TableTiler->new();
print $tt->tile_table($matrix);
[download]

Update: I was obviously tired! Fixed the problems identified in replies.

there is still room for some small improvement!

Global symbol "$sth" requires explicit package name

;-)

Ha Ha I like they way you mess with your users: failure to connect to a mysql database sends them looking for a failed Oracle instance.
Evil genius!

my $dbh = DBI->connect( "DBI:mysql:project") or die "Can't connect to 
+Oracle database: $DBI::errstr\n";
[download]

Update: Added code for quick reference.

andyford
or non-Perl: Andy Ford

Hi,

By using the below statement you can create html table

mysql -H -e "SELECT * FROM tablename" databasename

regards
Balaji. M

How do you know she is a witch? Why mysql? Should Anonymous Monk make a system call to run this?

#!/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;
[download]