#!/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; # Function prototype: sub doform; # Decision point: did we get a "title" as a query? my $title=""; # Case 1: No title, just display the form and exit: if (! defined ($cgi->param("title"))) { print $cgi->h1("Query the PG Database"); doform(); exit; } # Case 2: Yes, we got a title. Process the query: $title=$cgi->param("title"); print $cgi->h1("Your query for title=$title"); # 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} ); # Let's get all the values from a table: my $query="select * from books where title=\"" . $title . "\""; print "

Second query: $query\n

"; my $rows = $dbh->selectall_arrayref($query); my $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] . "	" . "[$urlcol]\">" . $row->[$urlcol] . "	" . $row->[$publisheridcol] . "

\n"; # Done: $dbh->disconnect; doform(); exit; sub doform { print "\n"; }