Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Tnsnames.ora
Top Forums Shell Programming and Scripting Tnsnames.ora Post 302894740 by Klashxx on Thursday 27th of March 2014 04:44:20 AM
Old 03-27-2014
From python shell:
Code:
>>> text = '''
... PRI =
...   (DESCRIPTION =
...     (ADDRESS_LIST =
...       (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.7)(PORT = 1521))
...     )
...     (CONNECT_DATA =
...       (SERVER = DEDICATED)
...       (SERVICE_NAME = pri)
...       (INSTANCE_NAME = pri)
...     )
...   )
... 
... STDBY.world =
...   (DESCRIPTION =
...     (ADDRESS_LIST =
...       (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.5)(PORT = 1521))
...     )
...     (CONNECT_DATA =
...       (SERVER = DEDICATED)
...       (SERVICE_NAME = stdby)
...       (INSTANCE_NAME = stdby)
...     )
...   )
... 
... 
... AIXSNAP.us.net =
...   (DESCRIPTION =
...     (ADDRESS_LIST =
...       (ADDRESS = (PROTOCOL = TCP)(HOST = 10.9.0.5)(PORT = 1521))
...     )
...     (CONNECT_DATA =
...       (SERVER = DEDICATED)
...       (SERVICE_NAME = aixsnap)
...       (INSTANCE_NAME = aixsnap)
...     )
...   )
... '''
>>> 
>>> print re.sub(re.compile(r'^\s*(\w+)(?:\.world|\s*)(?=\s*=\s*\n\s*[\(]\s*DESCRIPTION)',re.M),r'\1,\1.world',text)
PRI,PRI.world=
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.7)(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = pri)
      (INSTANCE_NAME = pri)
    )
  )
STDBY,STDBY.world =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.5)(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = stdby)
      (INSTANCE_NAME = stdby)
    )
  )


AIXSNAP.us.net =
  (DESCRIPTION =
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.9.0.5)(PORT = 1521))
    )
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = aixsnap)
      (INSTANCE_NAME = aixsnap)
    )
  )

In a script:
Code:
# cat lsnr_sub.py 
#!/usr/bin/env python
import sys
import re

try:
   with open(sys.argv[1],'r') as f:
      text = f.read()
except:
   print "err with file"
   sys.exit(5)

reg_ex = (r'^\s*(\w+)(?:\.world|\s*)'
          r'(?=\s*=\s*\n\s*[\(]\s*DESCRIPTION)')
print re.sub(re.compile(reg_ex,re.M),r'\1,\1.world',text)

Usage:
Code:
# ./lsnr_sub.py listener.ora

Last edited by Klashxx; 03-27-2014 at 06:50 AM.. Reason: Script integration
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Need to capture the service name from tnsnames.ora and create connect string

ghkjkjoj (4 Replies)
Discussion started by: chetankelvin
4 Replies

2. Solaris

init.ora

what is the function of the init.ora file and suppose by mistake it gets deleted , what will be the consequences on the server (1 Reply)
Discussion started by: asalman.qazi
1 Replies

3. UNIX for Dummies Questions & Answers

find tnsnames.ora in unix

Can we find out what is the location of tnsnames.ora file used by the hp unix. (3 Replies)
Discussion started by: Sudipshib
3 Replies

4. Solaris

maxuprc and maxusers - ORA-27300, ORA-27301, ORA-27302

Hi all, Am intermittently getting the following errors on one of my databases. Errors in file /oracle/HRD/saptrace/background/hrd_psp0_13943.trc: ORA-27300: OS system dependent operation:fork failed with status: 12 ORA-27301: OS failure message: Not enough space ORA-27302:... (1 Reply)
Discussion started by: newbie_01
1 Replies

5. Shell Programming and Scripting

sed: parsing tnsnames.ora

All: Can sombodoy help me out with a sed command? Assume I have the following: PRI = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.7)(PORT = 1521)) ) (CONNECT_DATA = (SERVER = DEDICATED) (SERVICE_NAME = pri) ... (3 Replies)
Discussion started by: BeefStu
3 Replies

6. UNIX for Advanced & Expert Users

grep all ORA errors except one ORA error

Hi - I am trying to grep all "ORA" errors in a log files.I have to grep all ORA errors except one error for example ORA-01653.How can exclude that error in "grep" command? In following "grep" command I want to exclude "ORA-01653" error grep -i ORA alert.log >>/tmp/ora_errors.txt ... (7 Replies)
Discussion started by: Mansoor8810
7 Replies

7. Shell Programming and Scripting

Removing section from tnsnames.ora

Hi, I am trying to write a script or command to remove a section from tnsnames.ora file in the following example I would like to remove tns_alias2 section $ cat tnsnames.ora tns_alias1 = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = host1 )(PORT = 1521)) ... (3 Replies)
Discussion started by: ynixon
3 Replies

8. Shell Programming and Scripting

Tnanames.ora parser

Dears How can I use shell to parser this file? PRI = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.7)(PORT = 1521)) (ADDRESS = (PROTOCOL = TCP)(HOST = 10.0.3.17)(PORT = 1521)) ) (CONNECT_DATA = (SERVER = DEDICATED) ... (6 Replies)
Discussion started by: eric0826
6 Replies

9. AIX

I cannot find dsn and TNSNAMES.ora on UNIX

Where can I find dsn and TNSNAMES.ora on UNIX AIX Thanks for contribution (3 Replies)
Discussion started by: digioleg54
3 Replies

10. Red Hat

Ora-27603:ora-27626:

Hi, User claim that job is running slow from their end. I DBA found in database the below errors in alert log file. ORA-27603: Cell storage I/O error, I/O failed on disk o/192.168.10.3/RECO_DM01_CD_01_drm01 at offset 13335789568 for data length 1048576 ORA-27626: Exadata error: 2201 (IO... (2 Replies)
Discussion started by: Maddy123
2 Replies

LEARN ABOUT DEBIAN

net::time

Net::Time(3perl)					 Perl Programmers Reference Guide					  Net::Time(3perl)

NAME

       Net::Time - time and daytime network client interface

SYNOPSIS

	   use Net::Time qw(inet_time inet_daytime);

	   print inet_time();	       # use default host from Net::Config
	   print inet_time('localhost');
	   print inet_time('localhost', 'tcp');

	   print inet_daytime();       # use default host from Net::Config
	   print inet_daytime('localhost');
	   print inet_daytime('localhost', 'tcp');

DESCRIPTION

       "Net::Time" provides subroutines that obtain the time on a remote machine.

       inet_time ( [HOST [, PROTOCOL [, TIMEOUT]]])
	   Obtain the time on "HOST", or some default host if "HOST" is not given or not defined, using the protocol as defined in RFC868. The
	   optional argument "PROTOCOL" should define the protocol to use, either "tcp" or "udp". The result will be a time value in the same
	   units as returned by time() or undef upon failure.

       inet_daytime ( [HOST [, PROTOCOL [, TIMEOUT]]])
	   Obtain the time on "HOST", or some default host if "HOST" is not given or not defined, using the protocol as defined in RFC867. The
	   optional argument "PROTOCOL" should define the protocol to use, either "tcp" or "udp". The result will be an ASCII string or undef upon
	   failure.

AUTHOR

       Graham Barr <gbarr@pobox.com>

COPYRIGHT

       Copyright (c) 1995-2004 Graham Barr. All rights reserved.  This program is free software; you can redistribute it and/or modify it under
       the same terms as Perl itself.

perl v5.14.2							    2010-12-30							  Net::Time(3perl)
All times are GMT -4. The time now is 06:01 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy