$drh = DBI->install_driver(\'mysql\');
$rc = $drh->func(\'createdb\', $database, $host, $user, $password, \'admin\');
Если надо подробнее:
Server Administration
admin
$rc = $drh->func("createdb", $dbname, [host, user, password,], \'
admin\');
$rc = $drh->func("dropdb", $dbname, [host, user, password,], \'ad
min\');
$rc = $drh->func("shutdown", [host, user, password,], \'admin\');
$rc = $drh->func("reload", [host, user, password,], \'admin\');
or
$rc = $dbh->func("createdb", $dbname, \'admin\');
$rc = $dbh->func("dropdb", $dbname, \'admin\');
$rc = $dbh->func("shutdown", \'admin\');
$rc = $dbh->func("reload", \'admin\');
For server administration you need a server connection. For
obtaining this connection you have two options: Either use a
driver handle (drh) and supply the appropriate arguments (host,
defaults localhost, user, defaults to \'\' and password, defaults
to \'\'). A driver handle can be obtained with
$drh = DBI->install_driver(\'mysql\');
(perldoc DBD::mysql)
=-=-=-=-=-=-=-=--=-=--=--=---=-=-=-=-=-=-=-=
У меня есть одна просьба:
SQL я только начал, очччень хоцца посмотреть готовый пример на Perle, не просто мануал типа 2*2=4, (по нему высшей математике не научишься), а действительно полноценный скрипт:
Нужно: ренистрация, аутетификация юзеров, вывод их инфы в соответствии с разветвленным деревом категорий где каждой соответствует несколько подкаталогов....
Да и вообще любой скрипт связка Perl+MySQL будет хорошей помощью
Обязуюсь не использовать в коммерческих целях, только для самообразования (все равно мне придется самому все писать).
ПЛИЗЗЗ!