http://www.perlmonks.org?node_id=165498

ninja-joe has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to do a basic select but I'm running into an error message:
No Database Selected
Here's the code I used (password, domain and user have been changed for privacy purposes)
#!/usr/bin/perl use DBI; use CGI qw/:standard/; import_names('f'); print header(); my $database = "databasename=default"; my $host = "host=mysql.domain.com"; my $driver = "DBI:mysql"; my $user = "user"; my $pass = "pass"; my $dbh = DBI->connect("DBI:mysql:$database;$host", $user, $pass) or print "Can't connect to mysql database: $DBI::errstr<br>"; $sth = $dbh->prepare("SELECT section, content FROM webdata WHERE secti +on=home") or print "Can't prepare statement: $DBI::errstr<br>"; $sth->execute() or print "Can't execute statement: $DBI::errstr<br>"; $dbh->disconnect();
The code doesn't flag any syntax errors, so I'm a little confused. Is it me or something I should email the sysadmin about?