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

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++

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

Comment on Re: Build Table with 'n' rows and 'm' columns Select or Download Code

Replies are listed 'Best First'.
Re^2: Build Table with 'n' rows and 'm' columns by ikegami (Patriarch) on Nov 02, 2006 at 09:33 UTC
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.	[reply] [d/l] [select]
Re^3: Build Table with 'n' rows and 'm' columns by mreece (Friar) on Nov 02, 2006 at 15:07 UTC
there is still room for some small improvement! `Global symbol "$sth" requires explicit package name` ;-)	[reply]
Re^4: Build Table with 'n' rows and 'm' columns by cLive ;-) (Prior) on Nov 02, 2006 at 15:47 UTC
And more. Personally, I prefer using SELECT over SELET ;-)	[reply]
Re^2: Build Table with 'n' rows and 'm' columns by andyford (Curate) on Nov 02, 2006 at 15:10 UTC
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	[reply] [d/l]