tnsnames上的regex。ora公司

Question

我的名字。ora文件有2种格式：db\U cl=（描述=（地址=（协议=TCP）（主机=a55）（端口=1522））（连接\U数据=（服务器=专用）（服务\U名称=cl）））

dbcd=（描述=（地址=（协议=TCP）（主机=a66）（端口=1521））（连接\u数据=（服务器=专用）（服务\u名称=cd）））

myx5=（描述=（地址=（协议=TCP）（主机=v55）（端口=1521））（连接\u数据=（服务器=专用）（服务\u名称=x5）））

我想获取特定service\u名称或sid的主机名。在某些情况下，它是sid，在某些情况下，它是service\u name。为了获得主机名，我应该用grep搜索什么？在本例中，我想获取html" target="_blank">字符串“host\u name”。

****更新****我也需要db_name2，如果有人可以帮助

Answer 1

@drf：尝试：

 awk '/HOST/{sub(/).*/,"",$(NF-2));print $(NF-2)}'   Input_file

只需为每行查找字符串主机，然后替换即可）。*从awk与其中的字符串HOST匹配的行的第二个最后一个字段开始，它应该为您提供HOST\u名称。

编辑：要查找特定的SID或服务名称，请尝试：

awk '/HOST/{sub(/).*/,"",$(NF-2));HOST=$(NF-2);next} /SID/{print HOST}'

将SID更改为您要搜索的sid或服务名称，然后它应该可以工作。

编辑2：

awk '/db_name/{sub(/=/,"",$1);DB=$1}/HOST/{sub(/).*/,"",$(NF-2));HOST=$(NF-2);next} /chumma/{print DB ORS HOST}'

编辑3：

awk '{gsub(/\)|\(/,"");;for(i=1;i<=NF;i++){if($i=="HOST"){host=$(i+1)};if($NF=="cd"){val="DB_NAME= "$1", HOST_NAME= "host",SID/SERVICE_NAME= "$NF}};if(val){print val;val=""}}'  Input_file

或（溶液的非线性形式也如下）：

awk '{gsub(/\)|\(/,"");
      for(i=1;i<=NF;i++){
                                if($i=="HOST"){
                                                host=$(i+1)
                                              };
                                if($NF=="cd") {
                                                val="DB_NAME= "$1", HOST_NAME= "host",SID/SERVICE_NAME= "$NF
                                              }
                        };
      if(val)           {
                                print val;
                                val=""
                        }
     }
    '   Input_file

您可以在上面的代码中放置另一个要搜索的服务或ssid。

Answer 2

如果perl可用，请尝试以下命令：

perl -nle 'BEGIN{$service = shift}
    $host = $1 if /HOST\s*=\s*([^\s\)]+)/i;
    print $host if /\((SID|SERVICE_NAME)\s*=\s*$service\)/;
' blabla tnsnames.ora

它存储在主机= 并在遇到时打印它（**SID/SERVICE\u NAME**=blabla）