Ad Widget

Collapse

Zabbix API: perl regexp для получения компонентов итем-ключ&

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • DRVTiny
    Senior Member
    • Sep 2011
    • 162

    #1

    Zabbix API: perl regexp для получения компонентов итем-ключ&

    Правильно ли я понимаю, что компоненты свойства key_ объекта item можно извлечь вот так?
    Code:
    #!/usr/bin/perl
    $k=<<EOF;
    some.key["trata, ta",  "lalala,,, la",17, mu g,y lyu]
    EOF
    for ($a=$k) {
     s%[^\[]+\[\s*%%;
     s%\]\s*$%%;
    }
    
    @l=$a=~m/(?:^|,)\s*(?:(?<q>['"])(.+?)\g{q}|([^'",]*?))\s*(?=(?:,|$))/g;
    $c=0;
    print join("\n",map { ++$c.': '.$_ } grep { $_ && $_ ne '"'} @l)."\n";
    Собственно, вопрос о том, применимо ли в данном случае регулярное выражение
    Code:
    (?:^|,)\s*(?:(?<q>['"])(.+?)\g{q}|([^'",]*?))\s*(?=(?:,|$))
    Спасибо!
Working...