perl解析配置括号样式

我不知道perl是否可以解析大括号配置的junos并转换为csv。perl解析配置括号样式

interfaces { 
    apply-groups policer-arp; 
    ge-1/0/0 { 
     description "*** Description ***"; 
     unit 0 { 
      family inet { 
       address 10.100.200.1/24 { 
        arp 10.100.200.2 mac 00:16:d4:e7:9b:de; 
       } 
      } 
     } 
    } 
    ge-1/0/2 { 
     description " Description "; 
     vlan-tagging; 
     unit 101 { 
      description "NODEB_CLUSTER#101"; 
      vlan-id 101; 
      family inet { 
       address 10.187.132.3/27 { 
        vrrp-group 1 { 
         virtual-address 10.187.132.1; 
         priority 190; 
         accept-data; 
        } 
       } 
      } 
     } 
     unit 102 { 
      description "Description"; 
      vlan-id 102; 
      family inet { 
       address 10.187.132.35/27 { 
        vrrp-group 2 { 
         virtual-address 10.187.132.33; 
         priority 200; 
         accept-data; 
        } 
       } 
      } 
     } 
     unit 103 { 
      description "NODEB_CLUSTER#103"; 
      vlan-id 103; 
      family inet { 
       address 10.187.132.67/27 { 
        vrrp-group 3 { 
         virtual-address 10.187.132.65; 
         priority 190; 
         accept-data; 
        } 
       } 
      } 
     } 
     unit 104 { 
      description "NODEB_CLUSTER#104"; 
      vlan-id 104; 
      family inet { 
       address 10.187.132.99/27 { 
        vrrp-group 4 { 
         virtual-address 10.187.132.97; 
         priority 200; 
         accept-data; 
        } 
       } 
      } 
     }

输出：

Interface, IP Address, VLAN, Virtual-Address, Vrrp-group, Vrrp Priority 
ge-1/0/0,10.100.200.1/24, , , , ,    
ge-1/0/2, , , , , , 
ge-1/0/2.101,10.187.132.3/27,101,10.187.132.1,1,190 
ge-1/0/2,102,10.187.132.35/27,102,10.187.132.33,2,200 
ge-1/0/2,103,10.187.132.67/27,103,10.187.132.65,3,190 
ge-1/0/2,104,10.187.132.99/27,104,10.187.132.97,4,200

所以在短暂的，我们香橙配置转换为CSV，用于接口配置我们计数接口GE-1/0/2，比GE-1/0/2.101如它是vlan 101的接口，vlan 102的ge-1/0/2.102，等等。 Perl是否可以解析它，或者有没有更快的方法来转换它？

来源

2013-12-12 rabka

的Perl（或任何其他的编程语言）可以做到这一点。你有什么尝试？ – choroba

我试着先读输入，然后grep if（$ _ =〜//）。但是，当配置中存在重复值时，很难获得该值。我想知道是否有更快的方法？ – rabka

如果你知道这个配置的语法，这应该不是很困难。使用正则表达式组合（使用g和c修饰符和\ G断言）和pos（）函数。好的例子是JSON::Tiny。

我加解析器例如这种格式（但不知道是不是正确的，因为话题起动机不能提供任何规格）：https://gist.github.com/olegwtf/7941326

来源

2013-12-12 08:58:03

我仍然使用JSON混淆树状，你能否举一些例子来说明这种情况？ – rabka

具有此配置格式的语法规范如JSON有https://tools.ietf.org/html/rfc4627？ –

似乎不是。就像没有对象的树，只有值/参数。 – rabka

perl解析配置括号样式

回答

相关问题