A Gentle Introduction to


In order to create database backed website you need each of the following: googlePara crear el website movido hacia atrás base de datos usted necesita cada uno del siguiente:

The following is based on Windows / googleLo que sigue se basa en Windows/ ApachegoogleApache / PerlgooglePerl / MySQL

use CGI qw(:standard);
use Mysql;

print header();

#Import the CGI parameters into the $Q structure

#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");
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=?");
  while (my ($name,$pop) = $sth->fetchrow_array()){
    print "$name $pop<br/>\n";


This is what it should look likegoogleEsto es lo que debe parecer