如何使用Perl脚本连接到sqlplus

Question

In unix the normal procedure that we use to connect to sqlplus is like this

sqlplus ${user}/${password}@${server} my_file.sql >> $Logfile 2>&1

where im appending all the info in the above command to the log file $Logfile

Now in perl i know how to connect to sqlplus and execute a sql script i used something like

system("sqlplus -L ${user}/${password}@${server} my_file.sql")

but using system we cannot send an info to a log file it will only give the return status i want to track the info of the executed command like we do in unix Is there a way to do this. Please help Thanks

Answer 1

It is far better to access the database using DBI and DBD::Oracle rather than shelling out to run the interactive tool SQL*Plus .

But if you insist on creating a separate process to manipulate your database, then an identical command passed to system will achieve the same results.

I have assumed that you want the at sign @ in there literally? Like this

system("sqlplus -L ${user}/${password}\@${server} my_file.sql >> $Logfile 2>&1")

Or you could use backticks:

open my ($log_fh), '>', $Logfile;

print $log_fh `sqlplus -L ${user}/${password}\@${server} my_file.sql`;