Как создать БД средствами Perl'a???? Help!!!

[Мишаня]

Доброго время суток. Подскажите пожалуйста как можно создать базу данных Mysql перловским скриптом? типа как в РНР есть функция:

Код: Выделить всё

 $Link=mysql_connect("host","user","password");

Код: Выделить всё

mysql_create_db("databasename",$Link);

Кто сталкивался???????

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

Кто сталкивался???????

эмм.. а чем тру-путь не устраивает? через запрос create database test123 charset utf8?

[Мишаня]

через запрос create database test123 charset utf8?

а поподробнее можно???

[zg]

куда уж подробнее или тебе нужен пример работы с БД в перле? если да, тогда сюда http://search.cpan.org/dist/DBD-mysql/l ... pm#EXAMPLE

[Мишаня]

Спасибо Все получилось. Вот как это вышло у меня:

Код: Выделить всё

#!/usr/local/bin/perl

use CGI;
use DBI;

$database = "logs";
$hostname = "localhost";
$port = "3306";
$user = "anonymous";
$password = "";

$dsn = "DBI:mysql:database=$database;host=$hostname; port=$port";

$dbh = DBI->connect($dsn, $user, $password);

$rc = $dbh->func('createdb',"Misha", 'admin');

[ProFTP]

попробуй поставить в do() обычный запрос, должно работать если мне не изменяет память

Код: Выделить всё

$dbh->do('createdb',"Misha", 'admin');