Rman/PERL scripts errors

Question

I am trying to automate the backups and disk maintenence on a test machine using a "Host Command" in the 10g EM environment. If I run the script from the command on the target host the scripts completes successfully.
This is the script:
ORACLE_HOME=/u01/app/oracle/product/9.2.0
export ORACLE_HOME
ORACLE_SID=coeusdba.
export ORACLE_SID
rman <<EOF
connect target sys<password>@coeusdba;
connect catalog <user>/<password>@recv;
replace script coeusdba_full_bkp { 
allocate channel Channel1 type disk format '/u03/orabkp/coeusdba/b_%u_%p_%c';
backup
( database include current controlfile );
backup ( archivelog all delete input );
run { execute script coeusdba_full_bkp;}
EOF
/u01/app/oracle/product/9.2.0/dbs/scripts/coeusdba_new.sh
exit
When I execute the same script from a 10g EM "Host Command" job the script fails at the PERL command step with the following output:
Recovery Manager: Release 9.2.0.7.0 - Production
Copyright (c) 1995, 2002, Oracle Corporation. All rights reserved.
RMAN>
RMAN>
connected to target database: COEUSDBA (DBID=1916078485)
RMAN>
RMAN>
connected to recovery catalog database
RMAN> 2> 3> 4> 5> 6> 7> 8>
replaced script coeusdba_full_bkp
RMAN>
RMAN>
executing script: coeusdba_full_bkp
allocated channel: Channel1
channel Channel1: sid=10 devtype=DISK
Starting backup at NOV-01-2005 10:32:32
channel Channel1: starting full datafile backupset
channel Channel1: specifying datafile(s) in backupset
including current controlfile in backupset
input datafile fno=00006 name=/u02/oradata/coeusdba/users01.dbf
input datafile fno=00002 name=/u03/oradata/coeusdba/undotbs01.dbf
input datafile fno=00004 name=/u03/oradata/coeusdba/index01.dbf
input datafile fno=00005 name=/u03/oradata/coeusdba/tools01.dbf
input datafile fno=00007 name=/u03/oradata/coeusdba/xdb01.dbf
input datafile fno=00001 name=/u02/oradata/coeusdba/system01.dbf
input datafile fno=00003 name=/u02/oradata/coeusdba/drsys01.dbf
channel Channel1: starting piece 1 at NOV-01-2005 10:32:33
channel Channel1: finished piece 1 at NOV-01-2005 10:33:28
piece handle=/u03/orabkp/coeusdba/b_3rh2l4q1_1_1 comment=NONE
channel Channel1: backup set complete, elapsed time: 00:00:55
Finished backup at NOV-01-2005 10:33:28
Starting backup at NOV-01-2005 10:33:29
current log archived
channel Channel1: starting archive log backupset
channel Channel1: specifying archive log(s) in backup set
input archive log thread=1 sequence=49 recid=200 stamp=573215609
channel Channel1: starting piece 1 at NOV-01-2005 10:33:32
channel Channel1: finished piece 1 at NOV-01-2005 10:33:33
piece handle=/u03/orabkp/coeusdba/b_3sh2l4rr_1_1 comment=NONE
channel Channel1: backup set complete, elapsed time: 00:00:02
channel Channel1: deleting archive log(s)
archive log filename=/u04/arch/coeusdba/1_49.dbf recid=200 stamp=573215609
Finished backup at NOV-01-2005 10:33:35
Starting Control File and SPFILE Autobackup at NOV-01-2005 10:33:35
piece handle=/u04/orabkp/coeusdba/ctl_file_bkps/c-1916078485-20051101-00 comment=NONE
Finished Control File and SPFILE Autobackup at NOV-01-2005 10:33:38
released channel: Channel1
RMAN>
RMAN>
Recovery Manager complete.
syntax error at /u01/app/oracle/product/9.2.0/EM10g_1/perl/lib/5.6.1/warnings.pm line 306, near "{^"
syntax error at /u01/app/oracle/product/9.2.0/EM10g_1/perl/lib/5.6.1/warnings.pm line 311, near "{^"
BEGIN failed--compilation aborted at /u01/app/oracle/product/9.2.0/EM10g_1/perl/lib/5.6.1/English.pm line 38.
BEGIN failed--compilation aborted at /u01/app/oracle/product/9.2.0/dbs/scripts/rmanc.pl line 20
Is anyone having this problem in 10g and if so , can you provide me with some insight with respect to resolution?

Answer 1

The .sh script calls a perl script that parses the output of the report obsolete command in rman and deletes the obsolete datasets from disk. This shell completes from the command line with no errors. Here is the .sh and the perl script. Like I said the odd thing is that this shell executes successfully from the command line. Thanks for your interest in looking at this.
cat coeusdba_new.sh
/u01/app/oracle/product/9.2.0/dbs/scripts/rmanc.pl target sys/<password>@coeusdba catalog rmantest/<password>@recv redundancy 2
rmanc.$ cat rmanc.pl
#!/usr/bin/perl -w
# NAME
# rmanc.pl - delete obsolete backups and copies
# DESCRIPTION
# This perl script automates deletion of obsolete datafilecopies and
# backup pieces. It uses perl strin manipulation to process the output of the RMAN
# "report obsolete" command and creates rm commands to delete the files
# NOTES
# Some customization is necessary.
# Adapted from Oracle 8i rman1.sh Unix shell script.
# benmalek 03/08/2003 - Modified to delete backup sets and datafilecopies only
# Does not touch backup records.
use strict;
#use English;
#$ENV{ORACLE_OWNER}='oracle';
#$ENV{ORACLE_HOME}='/disk01/app/oracle/product/9.2.0';
$ENV{NLS_DATE_FORMAT}='DD-MON-YYYY:HH24:MI:SS';
&PrintEnv;
sub Usage {
my ($arg1, @arg2) = @_;
my $base_name = `basename $0`;
chop($base_name);
CASE: {
if (!defined($arg1)) {last CASE; }
if ($arg1 =~ /\S/) {print ("\nUnknown argument or incorrect value for: $arg1\n\n"); last CASE; }
my $example1 = 'rmanc.pl target sys/orclpass@orcl catalog rman/rmanpass@rec redundancy 5';
my $example2 = 'rmanc.pl target sys/orclpass@orcl nocatalog redundancy 5';
my $usage_txt =
" Usage: $base_name [option] ...
option: [target CNCTSTR] [catalog CNCTSTR | nocatalog] [params 'PARMS'] [redundancy NUMBER]
Option Description
target CNCTSTR Connect to the target db using CNCTSTR.
catalog CNCTSTR Connect to catalog db using CNCTSTR.
nocatalog Don't use a recovery catalog.
parms 'PARMS' Use PARMS string for SBT_TAPE maintenance channel.
You can use single or double quotes depending on
your needs. In the rman script, single-quotes
will be used.
redundancy NUMBER Set redundancy of backups to NUMBER.
The catalog or nocatalog option must be specified. All others are optional
The target option must also be specified
Examples:
$example1
$example2 ";
print ("$usage_txt \n");
die "Exiting subroutine 'Usage'.\n";
# Initialize default connect string variables:
my $target=""; # force user to supply target option
my $catalog=""; # force user to supply catalog option;
my $parms="";
my $redun=""; # force user to supply redundancy option;
# process target and catalog arguments
my $args = @ARGV;
while ( $args > 0 ) {
ARGS: {
if (($ARGV[0] eq "target") && defined($ARGV[1]))
{$target="$ARGV[0] $ARGV[1]"; shift(@ARGV); last ARGS;}
if (($ARGV[0] eq "catalog" || $ARGV[0] eq "rcvcat") && defined($ARGV[1]))
{ $catalog="$ARGV[0] $ARGV[1]"; shift(@ARGV); last ARGS;}
if ($ARGV[0] eq "nocatalog") { $catalog="$ARGV[0]"; last ARGS;}
if (($ARGV[0] eq "parms") && defined($ARGV[1])) { $parms = "$ARGV[0] $ARGV[1]"; shift(@ARGV); last ARGS;}
if (($ARGV[0] eq "redundancy") && defined($ARGV[1]) && !($ARGV[1] =~ /\D/))
{$redun=$ARGV[1]; shift(@ARGV); last ARGS;}
&Usage($ARGV[0]);
shift(@ARGV);
$args= @ARGV;
if ((!defined($catalog) || $catalog eq "") || (!defined($target) || $target eq "") || (!defined($redun) || $redun eq "" )) {&Usage;}
#print (" target=$target \n catalog=$catalog \n parms=$parms \n redundancy=$redun\n");
# Get a list of obsolete disk files to delete:
my @rman_out=`rman $target $catalog << EOF
report obsolete redundancy=$redun device type disk;
exit;
EOF`;
# debug
print ("############################################\n");
print ("Output of REPORT OBSOLETE REDUNDANCY=$redun\n");
print @rman_out;
print ("############################################\n");
#my $command = `rman $target $catalog << EOF
# report obsolete redundancy=$redun device type disk;
# exit;
# EOF"
#open (RMAN, "$command |" );
#my @rman_out=<RMAN>;
# Extract the names of the obsolete files to delete
my $line;
my @files;
my @dates;
my @pieces;
foreach $line (@rman_out) {
if (($line =~ /Backup Piece/) && ($line =~ /\S/)) {
my @fields=split (/\s+/, $line);
my $nelem=@fields;
push(@pieces, $fields[$nelem-3]);
push(@dates, $fields[$nelem-2]);
push(@files, $fields[$nelem-1]);
# Verify files exists
my $i=0;
foreach $line (@files) {
if (-e $line) {
print ("Deleting backup piece or file copy: $pieces[$i] $dates[$i] $line\n");
system("rm $line");
} else {
# print ("file $line does not exist. \n");
$i = $i + 1;
sub PrintEnv{
my $var;
foreach $var (sort keys %ENV) {
print "$var: \"$ENV{$var}\".\n"
pl