On 25 Jun 2001 09:47:08 -0800, Michael Fowler wrote:
> On Mon, Jun 25, 2001 at 01:09:51PM -0400, Chas Owens wrote:
> > On 25 Jun 2001 12:57:39 -0400, Yacketta, Ronald wrote:
> > > > select count(distinct(process)) ACTIVE from " . 'v$session' . "
> 
> > > > select count(distinct(process)) ACTIVE from " . 'v\$session' . "
> > 
> > What version of Perl are you using?  I was certain the 'v$session' would
> > not interpolate.  Have I failed to understand how quoting works in Perl?
> > can someone tell me where my understanding has failed?  
> 
> It hasn't, 'v$session' won't be interpolated by Perl; this is the way
> interpolation (or non-interpolation) has worked in Perl from at least perl
> 4.  My guess is the database itself is interpolating the variable.
> 
> 
> Michael
> --
> Administrator                      www.shoebox.net
> Programmer, System Administrator   www.gallanttech.com
> --

Well if that is the case then the original code should work 
if you add an additional "\\" to it:

@active = qx(
sqlplus -S $RTDUSER/$RTDPASS\@$RTD_ORACLE_SID <<-!
select count(distinct(process)) ACTIVE from v\\\$session
where last_call_et < 60 and
process in (select ltrim(rtrim(to_char(process_id) )) from 
session_list);
quit
!

--
Today is Sweetmorn, the 30th day of Confusion in the YOLD 3167
All Hail Discordia!


Reply via email to