Не бойся, когда ты один. Бойся, когда ты ноль.
https://forum.lissyara.su/
Код: Выделить всё
$Link=mysql_connect("host","user","password");Код: Выделить всё
mysql_create_db("databasename",$Link);эмм.. а чем тру-путь не устраивает? через запрос create database test123 charset utf8?Мишаня писал(а):Кто сталкивался???????
а поподробнее можно???zg писал(а): через запрос create database test123 charset utf8?
или тебе нужен пример работы с БД в перле? если да, тогда сюда 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');
Код: Выделить всё
$dbh->do('createdb',"Misha", 'admin');