awk + localiza o nome do host depois de seqüências de caracteres

Question

por favor, informe como imprimir o nome do host (NODE100) do arquivo tnsnames.ora por awk ou sed

Quer dizer, quero obter cada nome de host após

    "HOST =" or "HOST=" or "HOST        =" etc

thx

 EXTPROC_CONNECTION_DATA =
   (DESCRIPTION =
      (ADDRESS_LIST =
       (ADDRESS = (PROTOCOL = TCP)(HOST = NODE100 )(PORT = 1521))
      )
     (CONNECT_DATA =
       (SERVICE_NAME = PLSExtProc)
     )
   )

    

Answer 1

 perl -n -e '/HOST *= *([^ )]+)/ && print "$1\n"' tnsnames.ora