如何从 Perl 脚本创建 MySQL 数据库？

Question

我正在尝试在 Perl 中创建一个数据库，但它一直试图向我询问要使用的数据库。 这是我的代码：

my @db_months = qw(JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC);

foreach my $db_month (@db_months)
{
  ## create db
  my $db_name = $db_month.$Year;
  my $dbh = DBI->connect($dns, $user, $password) or die "Unable to connect: $DBI::errstr\n"; 
  my $row = $dbh->do("CREATE DATABASE '".$db_name."' DEFAULT CHARACTER SET latin1 COLLATE latin1_swedish_ci;"); 
  $dbh->disconnect(); 
}

请帮忙。

Answer 1

只需省略database=$database;：

$dbh = DBI->connect("DBI:mysql:host=$host;port=$port", $user, $pw);
$dbh->do("create database test") or die "Cannot create database \n ";

Answer 2

了解哪一行出现错误以及错误到底是什么确实很有帮助。

尝试在数据库名称周围使用反引号 (`) 而不是单引号 (')...

Answer 3

服务器管理功能 .cpan.org/perldoc?DBD%3a%3amysql" rel="nofollow">DBD::mysql 可以使用：

my $rc = $dbh->func( 'createdb', $db_name, 'admin' );