Введение в СУБД MySQL


Example.13.2


#!/usr/bin/perl -w

use strict;

use CGI qw(:standard);

use CGI::Carp;

# Использовать модуль Msql.pm use DBI;

CGI::use_named_parameters(1);

my ($db);

my $output = new CGI;

$db = param('db')'or die("He указана база данных!");

# Connect to the requested server.

my $dbh = DBI->connect("DBI:mysql:$db;$server", undef, undef);

# Если не существует $dbh, значит, попытка соединения с сервером

# базы данных не удалась. Возможно, сервер не запущен,

# или не существует указанной базы данных, if (not $dbh) {

print header, start_html('title'=>"Данные по $host => $db",

'BGCOLOR'=>'white');

print <

$host

$db

Попытка соединения не удалась по следующей причине:

$DBI::errstr

END_OF_HTML

exit(0); }

print header, start_html('title'=>"Данные по $host => $db",

'BGCOLOR'=>'white'); print <

$host

$db

<р>

Таблицы:

    END_OF_HTML

    # $dbh->listtable возвращает массив таблиц,

    # имеющихся в текущей базе данных.

    my ©tables = $dbh->func( '_ListTables' );

    foreach (@tables) {

    print "

  • $_\n"; }
  • print <

    END_OF_HTML

    exit(0);




    Начало  Назад  Вперед