I have a simple Perl program that connects to MySQL and creates a table of
first names and last names. The code is as follows :
Expand|Select|Wrap|Line Numbers
- #!/usr/bin/perl -w
- use DBI;
- use Mysql;
- use DBD::mysql;
- $dbname = '';
- $dbhost = 'localhost';
- $dbuser = 'root';
- $dbpass = '';
- $dbh = DBI->connect("DBI:mysql:dbname=$dbname:$dbhost", $dbuser,
- $dbpass || die "Error: $DBI::errstr!\n";
- $create = $dbh->prepare("CREATE TABLE people ( first varchar (32) not null,
- last varchar (32) not null )
- ");
- $create->execute() || die "Error: $DBI::errstr!\n";
(line 16 is the execute statement)
DBD::mysql::st execute failed: No database selected at mkdb.pl line 16
Error: No database selected!
Are these errors caused by $dbname being empty? Do I need to assign a name to $dbname? Does the name of the database already exist somewhere or do I need to come up with this name?
Your help is much appreciated.
Akino.