#!/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"; }
| Plankton: 1% Evil, 99% Hot Gas. |
In reply to Re: sql prompt not finding file
by Plankton
in thread sql prompt not finding file
by Jaki1980
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |