topic Perl script help in Operating System - HP-UX

Perl script help

Kris_5 — Wed, 18 Jun 2003 20:57:06 GMT

Hi All,

I am trying to write a small perl script which runs a small sql using sqlplus. Perl code looks like this.

open(p_scode,"|/db01/app2/oracle/product/8.1.7/bin/sqlplus -s /");

print p_scode<spool $prj_sty_lst_fl
select lower(a.project_code)||...
...
...
close p_scode;

When I execute the perl script, the sql output is written in spool file as well as shown on to screen (which I don't want). How do I suppress the output to screen.

Thanks in adv.

Krish

Re: Perl script help

K.Vijayaragavan. — Thu, 19 Jun 2003 04:59:47 GMT

I think it is beacuse of STDOUT file handle used by the "print " statement in this script.

Re: Perl script help

Ollie R — Thu, 19 Jun 2003 05:10:46 GMT

Hi Krish,

I don't know your level of ORACLE knowledge so please excuse me if you find any of this a little condescending!

I think it's because you need to turn echoing off within the ORACLE script.

Try adding a line such as:
set echo off
before your spool definition and see if that makes any difference.

You can also use:
set heading off
set feedback off
and several others depending on what you need returning.

BTW, if you're expecting the "-s" options to run silent, I believe it's a capital "S".

Ollie.

Re: Perl script help

Kris_5 — Thu, 19 Jun 2003 12:03:26 GMT

Hi Ollie,

In the sql script, I did used echo off, but still the output is sent to screen. If it is a shell script, I could easily send the output to /dev/null, but in perl I have no idea on how to send this to null device. This is my first perl script. TIA

set termout off
set trimspool on
set pagesize 0
set feedback off
set echo off
set verify off
select lower(a.project_code)||...
...
...

Kris

Re: Perl script help

Mark Landin — Thu, 19 Jun 2003 12:17:37 GMT

I don't know Oracle, so I don't think I can help you directly here. BUT, when I have Perl questions, I often go to www.perlmonks.org, a fantastic online Perl community populated by some VERY wizardly people, including a couple of the authors of the O'Reilly camel book.

I'm not denigrating these forums here at all ... Perl Monks is another resource for Perl-specific issues, though.

Re: Perl script help

Rodney Hills — Thu, 19 Jun 2003 12:52:55 GMT

Change the STDOUT and STDERR on the sqlplus command-

open(p_scode,"|/db01/app2/oracle/product/8.1.7/bin/sqlplus -s / >/dev/null 2>&1");

This way any output generated by sqlplus will be sent to the bit bucket.

HTH

-- Rod Hills