SQL in perl on the Web - Revision history

Connor at 10:50, 19 July 2012

2012-07-19T10:50:35Z

Marek at 10:43, 19 July 2012

2012-07-19T10:43:18Z

Marek: Created page with "In order to create database backed website you need each of the following: * a web server, * a scripting language, * a database. The following is based on Windows / Apache /..."

2012-07-19T10:40:42Z

Created page with "In order to create database backed website you need each of the following: * a web server, * a scripting language, * a database. The following is based on Windows / Apache /..."

New page

In order to create database backed website you need each of the following:

* a web server,
* a scripting language,
* a database.

The following is based on Windows / Apache / Perl / MySQL

* Install Perl.
* Use ppm to install the MySQL module. From the Command Prompt
<source lang="bash">
C:\>c:\perl\bin\ppm
PPM>install DBD-Mysql
PPM>exit
C:\>exit
</source>

<source lang="perl">#!C:/perl/bin/perl
use CGI qw(:standard);
use Mysql;

print header();

#Import the CGI parameters into the $Q structure
import_names();

#Connect to Andrew's MySQL server at Napier University
my $dbh = DBI->connect("dbi:mysql:database=gisq;host=pc236nt.napier.ac.uk;port=3306",
"scott", "tiger");

my $sth = $dbh->prepare("SELECT DISTINCT region FROM cia");
$sth->execute;
print "<h1>Here are some regions</h1>\n";
while (my ($region) = $sth->fetchrow_array()){
print "<a href='?region=$region'>$region<a><br/>\n";
}

if ($Q::region) {
print "<h1>Here are the countries of $Q::region</h1>";
my $sth = $dbh->prepare("SELECT name, population FROM cia where region=?");
$sth->execute($Q::region);
while (my ($name,$pop) = $sth->fetchrow_array()){
print "$name $pop<br/>\n";
}
}

$dbh->disconnect;
</source>

@@ Line 5: / Line 5: @@
 * a database.
-The following is based on Windows / Apache / Perl / MySQL
+The following is based on Windows / [http://www.apache.com/ Apache] /[http://www.activestate.com/ Perl] / [http://www.mysql.com/ MySQL]
 * Install Perl.

@@ Line 9: / Line 9: @@
 * Install Perl.
 * Use ppm to install the MySQL module. From the Command Prompt
 <source lang="bash">
 C:\>c:\perl\bin\ppm
@@ Line 16: / Line 17: @@
 </source>
@@ Line 49: / Line 55: @@
 $dbh->disconnect;
 </source>