Using $ symbols in perl

Question

I am trying to build a perl script to perform hot backups but I am having trouble executing any command that include queries to v$tables because it tries to interpret the $symbol. For example
sub gencontrol {
open (TRACE, "/oracle/product/8.0.6/bin/sqlplus -s sys/manager <<EOF
set heading off
set pagesize 0
set verify off
set feedback off
select spid from v$process
#HERE IS AN EXAMPLE OF FAILURE ON v$process##
where addr = (select paddr from v$session where audsid = (select
userenv('sessionid') from dual));
alter database backup controlfile to trace;
exit
EOF|") &#0124; &#0124; die "NOPE";
while (<TRACE>) {
chop;
$trace = $_;
}

Answer 1

Hugo,
I understand your problem after trying a similar script to yours and trying unsuccessfully to escape the '$' in V$PROCESS. I had better luck using the Perl DBI module. DBI interpreted the \$ as a literal dollar sign to pass on to Oracle. See if you can modify something like this code to work for you:
#!usr/bin/perl
use DBI;
$ENV{ORACLE_HOME} = "/oracle/app/oracle/product/7.3.4";
my $n_spid;
my $dbh = DBI->connect("dbi:Oracle:exden", "sys", "change_on_install" ) &#0124; &#0124; die $DBI::errstr;
my $sth_spid = $dbh->prepare(
"SELECT spid
FROM V\$PROCESS" ); # Note the \ symbol
$sth_spid->execute;
$sth_spid->bind_columns( {}, \$n_spid );
while ( $sth_spid->fetch ) {
last if ! --my $max;
print "$n_spid\n";
null