How can I create a MySQL database from a Perl script?

Question

I'm trying to create a database in Perl but it keeps trying to ask me for a database to use. Here's my code:

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(); 
}

Please help.

In this context, a better nomenclature for $dns would be $dsn. — Alan Haggai Alavi
– Alan Haggai Alavi, Commented Feb 17, 2011 at 8:05
Agreed. In general, DNS = Domain Name System and DSN = Data Source Name. — Dave Sherohman
– Dave Sherohman, Commented Feb 17, 2011 at 8:54
As others have said, what line throws an error, and what is the error? Also, a table for every month? It sounds like you're doing database schemas all wrong, unless you have a very unusual requirement which makes that necessary. — David Precious
– David Precious, Commented Feb 17, 2011 at 11:02

fedorqui · Accepted Answer · 2015-02-25 10:02:40Z

2

Just simply omit the database=$database;:

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

edited Feb 25, 2015 at 10:02

fedorqui

293k113 gold badges592 silver badges640 bronze badges

answered Feb 25, 2015 at 10:01

VasaraBharat

8115 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

ysth · Accepted Answer · 2011-02-17 08:34:13Z

1

It really helps to know which line is giving an error and what precisely the error is.

Try using backticks (`) instead of single quotes (') around the database name...

answered Feb 17, 2011 at 8:34

ysth

99.1k6 gold badges126 silver badges219 bronze badges

Comments

Alan Haggai Alavi · Accepted Answer · 2011-02-17 07:59:06Z

0

The server administration function of DBD::mysql can be used:

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

answered Feb 17, 2011 at 7:59

Alan Haggai Alavi

74.7k19 gold badges105 silver badges129 bronze badges

2 Comments

pevik Over a year ago

Can I specify collation with createdb? I haven't found it in DBD/mysql.pm

MichielB Over a year ago

No, you can't. I'm really not a fan of this part of DBD::mysql.

Collectives™ on Stack Overflow

How can I create a MySQL database from a Perl script?

3 Answers 3

Comments

Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related