Shell Programming and Scripting

if line contain ".world" then line=line-".world" concat "," concat line
if line dont contain ".world" then line=line concat "," concat line concat".world"
else line=line

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)
    )
  )

PRI,PRI.world=
and 
STDBY,STDBY.world=

>>> 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)
    )
  )

# 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)

# ./lsnr_sub.py listener.ora

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

awk '
/\(DESCRIPTION/{
   if(index(prev,".world")) sub(/^[^.]+/,"&,&",prev)
   if(!index(prev,".")) sub(/^[^ ]+/,"&,&.world",prev)
}
NR>1 {print prev}
{prev=$0}
END {print prev}' infile