Re: how to create a database in perl

I didn't realize it was this easy... Just don't give a DB name.

use DBI;
my $dbh = DBI->connect("dbi:mysql:", "user","pass");
print 1 == $dbh->do("create database MooCow") ? "YAY\n":"BOO\n";
[download]

I'm guessing that's driver specific behavior.

Comment on Re: how to create a database in perl Download Code

Replies are listed 'Best First'.
Re^2: how to create a database in perl by Anonymous Monk on Jan 28, 2011 at 15:20 UTC
ok, thanks, but if you don't give a name, how can i get the database handle to perform queries on my database once i have created it. thanks	[reply]
Re^3: how to create a database in perl by erix (Prior) on Jan 28, 2011 at 15:53 UTC
You can just run "use mynewdbname" as a sql statement in do: `$dbh->do( "use mynewdbname" )` [download] I don't use mysql, but I find plenty of usage of that when searching in google code with `$dbh->do("use`	[reply] [d/l] [select]
Re^3: how to create a database in perl by Jeppe (Monk) on Jan 28, 2011 at 15:39 UTC
Simply disconnect(), and connect again with the name of the newly created database.	[reply]