#!/usr/local/bin/perl -w # Sample database access: use strict; use DBI; use CGI; use CGI::Carp "fatalsToBrowser"; my $cgi = new CGI; print "Content-type: text/html\n\n"; print "\n"; my $titlecol=0; my $lastnamecol=1; my $firstnamecol=2; my $pubyearcol=3; my $urlcol=4; my $publisheridcol=5; print $cgi->h1("Simple Query"); # Handle to database. This is for a local socket/file connect, # but the syntax is similar for a network connect: my $dbh = DBI->connect('dbi:mysql:database=pg;file=/var/lib/mysql/mysql.sock', 'pg', 'cs205', { RaiseError => 1} ); my $query="show tables"; print "

First query: $query\n

"; # Run a query, forego output: #my $result = $dbh->do($query); # Run a query, get output in $row my $rows = $dbh->selectall_arrayref($query); my $ctr=0; print "

\n \n"; foreach my $row (@$rows) { print " \n \n"; print " \n"; print " \n"; } print "

" . "#" . ++$ctr . "

" . $row->[0] . "

\n"; # Let's get all the values from a table: $query="select * from books"; print "

Second query: $query\n

"; $rows = $dbh->selectall_arrayref($query); $ctr=0; print "

\n \n"; print "\n \n \n \n \n "; } print "

	Title	Firstname Lastname	Pubyear	URL	PublisherID\n"; foreach my $row (@$rows) { print "
#" . ++$ctr . "	" . $row->[$titlecol] . "	" . $row->[$firstnamecol] . " " . $row->[$lastnamecol] . "	" . $row->[$pubyearcol] . "	" . $row->[$urlcol] . "	" . $row->[$publisheridcol] . "

\n"; # Done: $dbh->disconnect; exit;