running sqlplus script from perl

[Rajesh99]

I have a legacy code and need to run this from perl. I can not use DBI as this needs to fit in legacy.

system("sqlplus \/NOLOG <<EOF connect scott\/tiger\@store; select sysdate from dual;
exit
EOF ");

This does not work and keeps prompting me for help on sqlplus. Seems somewhere may be at << it fails and gives
wrong results.

Any idea how can I do this? Thanks.

 

[PaulTEG]

Try outputting the command before shelling it, the << may need to be escaped.

What does the <<EOF do?

--Paul

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[Rajesh99]

<<EOF lells sqlplus run all tha sql commands that come upto EOF under.
Unfortnately I can create temp file etc so thai is the only option I have. I tried to escape << as \</< that did not work.

I only use perl once a while so not current with what else can I do.

 

[TrojanWarBlade]

I can't agree with this idea and I'm sure you could do this in perl/DBI but, nonetheless, if you insist on running sqlplus you could open a pipeline and "print" your sql to it.

open PIPELINE, "| sqlplus scott\/tiger\@store > output.txt" or die "Failed to open pipeline";
print PIPELINE "select sysdate from dual;";
close PIPELINE;

Trojan.