Re: Help with DBI, perl, mysql on ubuntu

On Sun, 28 Apr 2013 15:30:05 -1000
syed khalid <[email protected]> wrote:

> 2.The code that is failing on the install is this.....
> 
> #*----------------------------
> -----------------------------
>  #*- Create a database after checking if it exists
>  #*---------------------------------------------------------
>  sub create_db
>  {
>   my ($dbname, $userid, $pass) = @_;
> 
>   #*-- check for a duplicate db
>  ----->> my $dbh =
> DBI->connect("DBI:mysql:mysql:localhost:3306","$userid","$pass");
>   my @dbs = $dbh->func('_ListDBs');
>   foreach my $db (@dbs)
>    { if ($db eq $dbname) { $dbh->disconnect(); return(); } }
> 
>   #*-- create the db
>   $dbh->do("create database $dbname"); $dbh->disconnect();
>   return();
>  }
> 
> The error I am getting is this Line 138 refers to the ---------> line
> above)
> 
> 
> DBI connect('mysql:localhost:3306'
> ,'root',...) failed: Access
> denied
> for user 'root'@'localhost' (using password: NO) at ../TextMine/DbCall.pm line 138
                               ^^^^^^^^^^^^^^^^^^

This means you didn't give a password.  I can see that you do pass
"$pass" to the DBI->connect() call above, so it must be that $pass is
being passed a blank value when your sub create_db() is called.  You
should look at the code that calls that function to find why it passes
a blank value.


-- 

C. Chad Wallace, B.Sc.
The Lodging Company
http://www.lodgingcompany.com/
OpenPGP Public Key ID: 0x262208A0