Re^2: How to find MySQL database exist or not

 
use DBI;
eval { $dbh = DBI->do('dbi:mysql:xxxxxxx','root','')
 or die "Connection Error: $DBI::errstr\n"
} ;

if (defined $dbh) { print "Table does not exist.\n"; } 
else { print "Table exist";}
[download]

code will print "Table exist" whether the database exist or not. Please help.

Comment on Re^2: How to find MySQL database exist or not Download Code

Replies are listed 'Best First'.
Re^3: How to find MySQL database exist or not by Marshall (Canon) on Sep 03, 2011 at 04:06 UTC
I think that you are mixing up a couple of things. There is a dataset name ($dsn) which is a mySQL database on a particular host name and port number. That has to exist or you are going "nowhere"! If the $dsn exists, then you can attempt to connect to it. This is where the user name and passwords are required. `my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port" \|\| die "DB data set name failed $!\n"; # # second step # # my $dbh = DBI->connect($dsn, $user, $password) \|\| die "DB connect failed $!\n";` [download] The $dsn and the final connected handle, $dbh are very different things.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: How to find MySQL database exist or not
by Marshall (Canon) on Sep 03, 2011 at 04:06 UTC

There is a dataset name ($dsn) which is a mySQL database on a particular host name and port number. That has to exist or you are going "nowhere"!

If the $dsn exists, then you can attempt to connect to it. This is where the user name and passwords are required.

my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"
       || die "DB data set name failed $!\n";
#
# second step #
#
my $dbh = DBI->connect($dsn, $user, $password) 
                || die "DB connect failed $!\n";
[download]

[reply]
[d/l]