Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\emca\EmcaUtil.pm
# # $Header: EmcaUtil.pm 08-apr-2008.14:09:41 rsamaved Exp $ # # # Copyright (c) 2003, 2008, Oracle. All rights reserved. # # NAME # EmcaUtil.pm - Utility Perl Module for EMCTL # # DESCRIPTION # # NOTES # # MODIFIED (MM/DD/YY) # rsamaved 04/08/08 - # kramarat 04/03/08 - # ssanklec 03/14/08 - Creation sub getSIDDBNameMapping { my $oracleHome = $_[0]; my $oracleSid = $_[1]; chomp($oracleHome); chomp($oracleSid); my $myFile = "$oracleHome/sysman/config/emca.map"; open(FILE, $myFile) or return ; #die "Can not read file($myFile)"; my @linesRead = <FILE>; #parse with ":" and get dbunique name, file will have line sid : dbUniquename foreach $_ (@linesRead) { $_ =~ s/ //g; my ($sid,$unique_name) = split(/:/, $_); if ($sid eq $oracleSid) { return $unique_name; } } return; } 1;
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de