sql prompt not finding file

Jaki1980 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks , I have the following code

my $sqlsource = mySql.sql
open( SQLPLUS, "|sqlplus /nolog") or die "Can't rus sqlplus\n" ;
print SQLPLUS <<SQL;
connect USERNAME/PASS\@INST
\@$sqlsource
SQL
[download]

It is working fine as far as conecting to the database , however it is not finiding my $sqlsource eventhough I am in the righ directory , I get error like this

SQL> Connected.
SQL> unable to open file "mySql.sql"
[download]

Is it the way I am calling the script , I am not sure if it is adding a space or somthing . Can someone advice please? thanks

Comment on sql prompt not finding file Select or Download Code

Replies are listed 'Best First'.

Re: sql prompt not finding file
by Plankton (Vicar) on Jan 15, 2004 at 23:06 UTC

my $sqlsource = mySql.sql is a typo (your missing the ; and "'s)

the file mySql.sql actually exist.
Maybe you should check the file before using it like so ...

#!/usr/local/bin/perl -w
 
 
my $sqlsource = "mySql.sql";
 
if ( -r $sqlsource ) {
open( SQLPLUS, "|sqlplus /nolog") or die "Can't rus sqlplus\n" ;
print SQLPLUS <<SQL;
connect USER/PASS\@SID
\@$sqlsource
SQL
} else {
        print "$sqlsource is not readable\n";
}
[download]

Plankton: 1% Evil, 99% Hot Gas.

[reply]
[d/l]

Re: Re: sql prompt not finding file

by Jaki1980 (Novice) on Jan 16, 2004 at 15:53 UTC

thanks all finally got it to work . As you mention, it was a mode issue. thanks

[reply]

Re: sql prompt not finding file
by CountZero (Bishop) on Jan 15, 2004 at 23:04 UTC

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

[reply]

Re: sql prompt not finding file
by pg (Canon) on Jan 15, 2004 at 22:58 UTC

As I said in this reply earlier, the problem is not in the part you showed us. Even with your original syntax, it worked fine for me.

The current issue you just showed is more to do with sql*plus and your environment, not Perl.

[reply]