error in establishing DB connection in Perl script?

Question

I am using perl 5.24. I am trying to learn Perl.

I had written a simple Perl code to connect to a DB. But gives error stating

DBI connect('database=vms','DBA',...) failed: (no error string) at simpleperl.pl line 13.

The code is

#!/usr/bin/perl

use DBI;
use DBD::SQLAnywhere;

my $driver = "SQLAnywhere"; 
my $database = "vms";
my $dsn = "DBI:$driver:database=$database";
my $userid = "DBA";
my $password = "admin";
my $dbh = DBI->connect($dsn, $userid, $password,{RaiseError => 1}) or die ("died connection:$DBI::errstr");

if($dbh)
{
    print "Connection Established";
}

Can anyone point out what might be the problem here?

First use use strict; and use warnings; as those will catch a bunch of errors. And don't use DBD::<Driver> directly. DBI will handle the driver for you. — dgw
– dgw, Commented Jul 6, 2017 at 11:01
I think database=$database must be ENG=$database. See te comment in the source code: # If dbname starts with something that doesn't look like # a connect string parameter ('label=value;' format) then # 'ENG=' is prefixed. — Jens
– Jens, Commented Jul 6, 2017 at 11:02

Sinan Ünür · Accepted Answer · 2017-07-06 14:40:47Z

2

Note the following in DBD::SQLAnywhere documentation:

$dbh = DBI->connect( 'dbi:SQLAnywhere:ENG=demo', $userid, $passwd );

#!/usr/bin/perl

use strict;
use warnings;    
use DBI;

my $driver = "SQLAnywhere"; 
my $database = "vms";
my $dsn = "DBI:$driver:ENG=$database";
my $userid = "DBA";
my $password = "admin";
my $dbh = DBI->connect($dsn, $userid, $password, {RaiseError => 1});

print "Connection established\n";

$dbh->disconnect;

Note also the following:

Always use strict and warnings.
You do not need use DBD::SQLAnywhere;. DBI will pick the driver based on what you specify in the connection string.
You specified {RaiseError => 1} in your connection options. That means, there is no need for the or die. DBI will croak if connect fails.
You probably want AutoCommit => 0 to go with that RaiseError => 1.
There is no need for the if ($dbh) following the connection attempt. You won't get there unless connect succeeded.

Given that fixing the connection string did not solve the problem and I do not have an instance of a SQLAnywhere database to test things, I am going to recommend you add:

DBI->trace( 5 );

before the connect call, and update your question with the trace information. See also TRACING.

edited Jul 6, 2017 at 14:40

answered Jul 6, 2017 at 11:06

Sinan Ünür

118k15 gold badges201 silver badges347 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Prateek Over a year ago

I ran the code which you suggested . It still gives the same error DBI connect('ENG=vms','DBA',...) failed: (no error string) at AnotherSimplePerl.pl line 12.

Sinan Ünür Over a year ago

I am assuming there is indeed a database called vms to which you can connect via other means. Is that assumption correct?

Prateek Over a year ago

Yes there is a database called vms.

Collectives™ on Stack Overflow

error in establishing DB connection in Perl script?

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related