Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

CGI+MySQL table

by david.jackson (Novice)
on Feb 25, 2002 at 03:11 UTC ( #147255=perlquestion: print w/ replies, xml ) Need Help??
david.jackson has asked for the wisdom of the Perl Monks concerning the following question:

Greetings --
What I'm trying do here is generate a html table using
CGI + Mysql?  
--Thanks David
#!/bin/perl -w use DBI; use diagnostics; use strict; use CGI::Pretty qw(:all); my ($dbh,$sth); my ($dbname)="test"; my ($login)="who_am_i"; my ($password) ="secret_word"; my ($query); my ($cl_first_name); # Define query $query=qq(SELECT cl_first_name from client); # $dbh = DBI->connect("DBI:mysql:$dbname",$login,$password) or die "Can't connect to $dbh: $dbh->errstr\n"; $sth = $dbh->prepare("$query") or die "Can't connect to $dbh: $sth->errstr\n"; $sth-> execute() or die "Can't connect to $dbh: $sth->errstr\n"; print start_html({-title=>"CGI Table"}); print table( while (($cl_first_name) = $sth -> fetchrow_array()) { Tr([td([$cl_first_name])]) } ); $dbh->disconnect(); print end_html;

Title =~ s/GGI/CGI/; - 2002-02-24 dvergin

Comment on CGI+MySQL table
Download Code
Replies are listed 'Best First'.
(jeffa) Re: CGI+MySQL table
by jeffa (Bishop) on Feb 25, 2002 at 03:24 UTC
    You didn't mention any errors, but it looks like you forgot to print a header - add this to the line that prints the output of start_html():
    print header, start_html({-title=>"CGI Table"});
    Also check out DBIx::XHTML_Table:
    use DBIx::XHTML_Table; my $table = DBIx::XHTML_Table->new("DBI:mysql:$dbname",$login,$passwor +d); $table->exec_query($query); print $table->output();
    (and yes, you will need to print header() and start_html() as well)


    (the triplet paradiddle with high-hat)

    Title =~ s/GGI/CGI/; - 2002-02-24 dvergin

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://147255]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2016-04-29 13:13 GMT
Find Nodes?
    Voting Booth?
    :nehw tseb si esrever ni gnitirW

    Results (441 votes). Check out past polls.