Re^2: How to handel sqlplus error in perl script.

Thanks all for your inputs.. I have installed IPC::Run on my machine... I have googled but not able to find exactly how to run it. I am running below command

open (WFH1, ">", "${basePath}/QueryResult4.txt");
run('$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate', '>', \\WFH1
+);
close(WH1);
[download]

instead of the existing

`$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate> ${basePath}/QueryResult4.txt`

but receiving error

 Global symbol "$WFH1" requires explicit package name at VoucherStateC
+hange.pl_other2 line 47.
Global symbol "$WFH1" requires explicit package name at VoucherStateCh
+ange.pl_other2 line 48.
Execution of VoucherStateChange.pl_other2 aborted due to compilation e
+rrors.
[download]

Feeling myself clueless...Could you please help me here or provide any good documentation on this module? thanks

Comment on Re^2: How to handel sqlplus error in perl script. Select or Download Code

Replies are listed 'Best First'.
Re^3: How to handel sqlplus error in perl script. by Anonymous Monk on Dec 24, 2014 at 06:43 UTC
Write like this `open my($filehandle) ... run ... $filehandle` [download]	[reply] [d/l]
Re^4: How to handel sqlplus error in perl script. by Ankur_kuls (Sexton) on Dec 24, 2014 at 07:41 UTC
Hi, I tried what you what suggested.. I also tried the below.. `open (WFH1, ">", "${basePath}/QueryResult4.txt"); run '$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate', \*WFH1;` [download] These are not throwing any error but not able to write on the output file.. could you please extend your help? sorry for sounding dumb and confused.. :)	[reply] [d/l]
Re^5: How to handel sqlplus error in perl script. by poj (Abbot) on Dec 26, 2014 at 11:46 UTC
Try `open (WFH1, '>', "${basePath}/QueryResult4.txt") or die "$!"; run "$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate", undef, \*WF +H1;` [download] See IPC::Run `## Using run() instead of system(): use IPC::Run qw( run timeout ); run \@cmd, \$in, \$out, \$err, timeout( 10 ) or die "cat: $?"` [download] In response to your question here http://stackoverflow.com/questions/27597811/how-to-increase-efficiency-of-perl-script-which-uses-sqlplus, consider using a sub-select query Read more... (700 Bytes) poj	[reply] [d/l] [select]