perl script with sql connection string seemingly failing over point(.)

Question

I'm having some trouble with inserting a return from a sql function into a variable. When I run the code below (the connection string is definitely working) I get the following errors :

Bareword found where operator expected at Script.pl line 34, near "'SELECT IDENT_CURRENT ('Database" (Missing operator before Database?) syntax error at Script.pl line 34, near "'SELECT IDENT_CURRENT ('Database" Bad name after Table' at Script.pl line 34.

I successfully prepared/executed sql statements before with this syntax.
I tried using $dbh->prepare ("SELECT IDENT_CURRENT ('Database.dbo.Table')") note the "".
Then the script executes, but my variable $RID just contains -1 which is not correct.
I ran the pure sql code as query on the sql server and that worked just fine.
Any help would be appreciated.

#!/usr/bin/perl
## PERL MODULES
 use DBI;
 use DBD::ODBC;
 use Text::CSV;
 use POSIX;
 use List::MoreUtils qw( each_array );
 no strict "vars";

    my $dbh = DBI->connect($data_source, $user, $password, {RaiseError => 0, PrintError => 1}) or die "Can't connect to $data_source: $DBI::errstr";


    my $id_return = $dbh->prepare ('SELECT IDENT_CURRENT ('Database.dbo.Table')');
    my $RID = $id_return->execute;
    print $RID;

Sobrique · Accepted Answer · 2015-12-15 10:48:54Z

2

Don't turn off strict. That never* fixes anything, it just hides errors. Turn on warnings. That's a good idea too.

Your problem here is - you're nesting single quotes:

''SELECT IDENT_CURRENT ('Database.dbo.Table')''

That isn't going to work. Escape them with \' or just use:

q{SELECT IDENT_CURRENT ('Database.dbo.Table')}

* OK, ok. almost never. For the purposes of questions on Stack Overflow it's a good enough approximation to "always".

edited Dec 15, 2015 at 10:48

answered Dec 15, 2015 at 10:31

Sobrique

53.6k8 gold badges63 silver badges107 bronze badges

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

1 Comment

HDemaiter Over a year ago

This does indeed solve the syntax error. After a bit more testing I found the code below working. $query = "SELECT IDENT_CURRENT ('dbo.Table')"; $sth = $dbh->prepare($query); $sth->execute(); $RID = $sth->fetchrow(); print $RID;

Collectives™ on Stack Overflow

perl script with sql connection string seemingly failing over point(.)

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related