#!/bin/perl
use DBI;
use strict;
my $dbh = DBI->connect("DBI:mysql:host=XXX",
"XXX", "XXX",{'RaiseError' => 1}); //连接数据库
$dbh -> do("DROP database if exists molecular"); //检测并删除,对表来吧database改成table
$dbh -> do("CREATE DATABASE molecular");
$dbh -> disconnect();
use DBI;
use strict;
my $dbh = DBI->connect("DBI:mysql:host=XXX",
"XXX", "XXX",{'RaiseError' => 1}); //连接数据库
$dbh -> do("DROP database if exists molecular"); //检测并删除,对表来吧database改成table
$dbh -> do("CREATE DATABASE molecular");
$dbh -> disconnect();