Dotaz: pomoc s perlem / parsovanie json

[tralala]

ahoj programovanie zatial nie je pre mna, max najdem nejaky bug a precitam co ma kod asi robit potreboval by som pomoct s sparsovanim json v perl

 

je tu celkom zaujimavy kod na monitoroivanie kubernetes ( najpr bezi autodisvoery - haldaju sa pody v namespace a nasledne kontajnery v pode )

 

dicovery pre kontajnery - riadky 208 - 223

 

https://github.com/objectiveit/zabbix-kubernetes/blob/master/k8s_discovery.pl

 

json file ktory je spracovany - problem zacina na riadku 2037 pre pod ktory ma 2 kontajnery ( meno 1st a 2nd ) - vystupod je len 1st , 2nd chyba ( v podstate by to malo objavit vsetky kontajnery )

 

https://pastebin.com/tTsuTajq

Odpovědi

[tralala]

plus minus ziadany vystup ( bohuzial 2nd v nom chyba )

    {
      "data": [
        {
          "{#NAME}": "etcd-minikube",
          "{#NAMESPACE}": "kube-system",
          "{#CONTAINER}": "etcd"
        },
        {
          "{#CONTAINER}": "coredns",
          "{#NAMESPACE}": "kube-system",
          "{#NAME}": "coredns-5c98db65d4-62sdx"
        },
        {
          "{#NAME}": "mc1",
          "{#NAMESPACE}": "kube-system",
          "{#CONTAINER}": "1st"
        },
        {
          "{#NAME}": "mc1", - missing
          "{#NAMESPACE}": "kube-system", - missing
          "{#CONTAINER}": "2nd" - missing
        },

[NN]

Ten problemovy json vstup vypada jak?

[gofree]

vstup resp json je v tom 2.linku na pastebin

[NN]

Problem dela funkce get_uniq() a jako hruba uprava by melo stacit:

push @{$toZabbix->{data}},values %uniq;

nahradit,

push @{$toZabbix->{data}},values @RESULT;

[tralala]

Ďakujem, skúsim a odreportujem.

[tralala]

funguje - teraz sa posielaju rovnako vsetky data ( discovery rules )

dalo by sa to nejako obmedzit aby

push @{$toZabbix->{data}},values @RESULT;

fungovalo len ak

$DISCOVERY eq 'containers'

pre vsetko ine

push @{$toZabbix->{data}},values %uniq;

vdaka

snazil som sa o njekay if else cyklus aleocividne to nie je moja salka kavy :)

[NN]

    if ($DISCOVERY eq 'containers') {
        push @{$toZabbix->{data}},values @RESULT;
    } else {
        push @{$toZabbix->{data}},values %uniq;
    }