在perl中执行sqlplus命令

Question

I am trying to check sql connection via sqlplus command in perl. I have used the following code to do this.

print "Befores\n";
$rc=system("sqlplus system/system @sqlfile.sql");
print "After $rc\n";
sleep(10);

The returnes value in rc is 0 this time. But when I give wrong credentials like. The sqlfile.sql file contains the only sql command 'EXIT'.

$rc=system("sqlplus systemabc/system @sqlfile.sql");

This also ends with the return code 0. But, manually doing the Credentials are wrong. Help me out in solving this...

Thanks in advance. :)

Answer 1

Yes dear friens,,, It's working fine now.

I just added '\\' before @sqlfile.sql, ie, I escaped the '@' symbol and I mentioned the database name after my password. Now I am getting the perfect output. :)

The change is as bellow:

$rc=system("sqlplus -L system/system@tstdb1 \@sqlfile.sql");

Here the format I used is: sqlplus -L Uname/Password@DBName \\@SqlFileContainingMySQLQuries

And -L Specifies not to reprompt for username or password if the initial connection does not succeed. For more info goto About SQLPLUS

I also tried without escaping the '@' symbol before sqlfile.sql, But the change also should apply for inverted comas, I used Single inverted comas instead of double inverted comas as bellow as mentioned by @René Nyffenegger :

$rc=system('sqlplus -L system/system@tstdb1 @sqlfile.sql');

Here the format I used is: sqlplus Uname/Password@DBName @SqlFileContainingMySQLQuries

This also works fine.

Answer 2

Yeah... :) I too tried this, Thanks for the answer @user252025

I was doing:

$rc=system("sqlplus -L user/user \@sql_file.sql");

Da rtrn code was wrong for me Now I ve changed to

$rc=system("sqlplus -L user/user@Mydb \@sql_file.sql");

Its working fine.. Thanks again...

Answer 3

The problem is the line

$rc=system("sqlplus system/system @sqlfile.sql");

You have a string quoted with double quotes ( "..." ). Such strings try to epxand variables (starting with @ , $ and % ). Since you have @sqlfile in the string, perl assumes this to be an array (which, of course it is not).

Remedy:

$rc=system('sqlplus system/system @sqlfile.sql');

Answer 4

Why are you doing this? DBI exists to provivide a sane and secure way of using databases and sensibly getting the output/return/errors from them.