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

         

базы данных не удалась. Возможно,


#!/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);


    Содержание  Назад  Вперед







    Forekc.ru
    Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий