Suche über mehrere Zeile (regexp) (gelöst) (Allgemeines zu Perl)

[thread]19669[/thread]

Suche über mehrere Zeile (regexp) [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+12 replies
Gast hoods

2015-05-26 09:51
Hallo zusammen,

ich bin blutiger perl Anfänger und versuche, leider erfolglos bisher :(, Daten von meinem PV Wechselrichter auszuwerten. Der Wechselrichter liefert folgendes Format zurück und ich benötige den Wert (val) zum entsprechenden Parameter (label).
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

[ { "oid" : 11365, "label" : "SystemState.Global.Measurement.AcPowerTotal", "type" : "i", "val" : "1667", "uitext" : "AC Power", "savetype" : 2, "factor" : 1.000000, "unit" : "W", "portal" : 0, "AutoZero" : 1, "fb" : 1 }, { "oid" : 11650, "label" : "SystemState.Global.OperatingStatus", "type" : "i", "val" : "10", "uitext" : "operating status", "savetype" : 2, "factor" : 1.000000, "unit" : "", "portal" : 2, "AutoZero" : 1, "fb" : 1 } ]
Ich habe es bisher nur geschafft, mit z.B. 'val" : "([\d\.]+)' einen einzelnen Wert herauszufiltern. Allerdings kann man mehrere OIDs mit einem HTTP Request abfragen und so kommt "val" dann mehrfach vor. Also müsste man den Parameter Namen z.B. 'SystemState.Global.Measurement.AcPowerTotal' mit in die Suche einbeziehen.

Wie lautet die regexp wenn ich den Parameter Namen mit einbeziehen möchte um den dazugehörigen Wert (val) zu identifizieren?

Vielen Dank für die Hilfe!

Gruß,
hoods
Last edited: 2015-05-26 10:15:21 +0200 (CEST)
- lichtkind
  
  2015-05-26 10:25
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  das schaut mir stark nach JSON aus. warum liest du es nicht mit JSON ein und holst dir deinen Wert direkt raus?
  
  Regex sind zu vermeiden :)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +2 replies
- payx
  
  2015-05-26 10:43
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo hoods,
  
  hier eine beispielhafte Umsetzung von Lichtkinds Vorschlag:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
  
  #!/usr/bin/perl use strict; use warnings; use JSON; # Rohdaten in Variable speichern my $json = <<ENDJSON; [ { "oid" : 11365, "label" : "SystemState.Global.Measurement.AcPowerTotal", "type" : "i", "val" : "1667", "uitext" : "AC Power", "savetype" : 2, "factor" : 1.000000, "unit" : "W", "portal" : 0, "AutoZero" : 1, "fb" : 1 }, { "oid" : 11650, "label" : "SystemState.Global.OperatingStatus", "type" : "i", "val" : "10", "uitext" : "operating status", "savetype" : 2, "factor" : 1.000000, "unit" : "", "portal" : 2, "AutoZero" : 1, "fb" : 1 } ] ENDJSON # Daten in Perl-Datenstruktur (hier: Arrayref of Hashrefs) einlesen my $perl_hash_or_arrayref = decode_json $json; # Zugriff auf die Werte: [0] bezeichnet den ersten Datensatz, {val} den daraus zu entnehmenden Wert. print $perl_hash_or_arrayref->[0]->{val};
  
  HTH
  Grüße
  payx
  - Gast hoods
    
    2015-05-26 11:46
    
    Hallo lichtkind, payx,
    
    über einen Zwischenschritt um die Daten in ein array zu bekommen hab ich in der Zwischenzeit auch schon nachgedacht. Zur Erklärung vielleicht noch:
    
    Ich möchte die Daten im Heimautomatisierungssystem FHEM mittels HTTPMOD Modul (http://fhem.de/commandref.html#HTTPMOD) verarbeiten und hier gibts soweit ich sehe nur den Parameter readingXRegex um die gelieferten Daten zu verarbeiten.
    
    Daher die Frage nach der regex.
    
    Gruß hoods
    Last edited: 2015-05-26 11:48:39 +0200 (CEST)
- +8 replies
- Linuxer
  
  2015-05-26 12:39
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Code: (dl )
  
  (label|val): "([^"]+)"
  
  Sollte die Werte für "label" oder "val" liefern. Der Wert darf dabei kein " enthalten.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +7 replies
  - Gast hoods
    
    2015-05-26 12:48
    
    Entschuldige wenn ich mich verquert ausgedrückt habe:
    
    Gesucht wird z.B. der Wert "1667" für den Parameter "SystemState.Global.Measurement.AcPowerTotal".
    
    Gruß hoods
    Last edited: 2015-05-26 12:52:21 +0200 (CEST)
    - +6 replies
    - Linuxer
      
      2015-05-26 13:07
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Dann versuche doch mal
      
      Code: (dl )
      
      SystemState\.Global\.Measurement\.AcPowerTotal.*?"val" : "([^"]+)"
      
      Wichtig dabei ist, dass die verwendete Regex-Maschine so eingestellt ist, dass der Punkt auch auf Newline zutreffen darf (was bei der einfachen/normalen Regex-Maschine in Perl nicht der Fall ist).
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +5 replies
      - Gast hoods
        
        2015-05-26 15:21
        
        Funktioniert leider nicht.
        Frage: wenn ich mit wget die URL aufrufe kommt der Output zeilenweise an (siehe 1. Post). Im Webbrowser erscheint allerdings der Output als Zeichenkette ohne CR/Newline.
        
        Ich hatte es auch bereits probiert mit \n im regex, brauche ich das überhaupt?
        
        Gruß hoods
        Last edited: 2015-05-26 16:09:13 +0200 (CEST)
        
        +3 replies
        
        Linuxer
        
        2015-05-26 16:19
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Mach im Browser mal einen Rechtsklick auf die Webseite und lass Dir den Quelltext der Seite anzeigen.
        
        In der HTML-Darstellung des Browsers werden die CR/Newline, sowie mehrere Leerzeichen hintereinander, nicht dargestellt ("optimiert"). Im Quelltext sollten die aber vorhanden sein.
        
        Leider verrätst Du nicht, wie Deine Versuche ausgesehen haben.
        
        Neuer Vorschlag:
        
        Code: (dl )
        
        SystemState\.Global\.Measurement\.AcPowerTotal(?:.*?[\r\n]+)*?"val" : "([^"]+)"
        
        mit dem (?:.*?[\r\n]+)*? sollten die Anteile (Zeilen) zwischen dem Label-Wert und dem "val" abgegriffen werden.
        
        PS: Mein Test in Perl mit oben genannter Regex war erfolgreich.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        Gast hoods
        
        2015-05-26 20:22
        
        Super, es funktioniert !!!
        
        Hängt offensichtlich mit den (?:.*?[\r\n]+)*? zusammen. Ich verstehe zwar noch nicht was die regex jetzt "anders" macht, aber es tut nun.
        
        Kann man das irgendwie reverse "auflösen" um besser zu verstehen warum es nun funktioniert? Gibts hierfür evt. online Tools?
        
        Vielen vielen lieben Dank!
        
        Gruß hoods
        Last edited: 2015-05-26 20:32:50 +0200 (CEST)
        
        Linuxer
        
        2015-05-26 21:41
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        es gibt ein Perl-Modul, mit dem man sich Regex erklären lassen kann: YAPE::Regex::Explain
        
        Oder man sucht sich eine Seite, die diese Funktion bereitstellt; z.B.
        
        Code: (dl )
        
        http://rick.measham.id.au/paste/explain.pl?regex=%28%3F%3A.*%3F[\r\n]%2B%29*%3F
        
        Hilft Dir das schon zur Klärung?
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        rosti
        
        2015-05-26 20:21
        
        User since
        2011-03-19
        3474 Artikel
        BenutzerIn
        
        Was im Browser zu sehen ist, ist völlig Wurscht. Du bekommst in der Response einen JSON-String, also nimm ein JSON-Decoder um daraus eine Dir zweckmäßige Datenstruktur zu erzeugen. Dann hast Du auch den Random Access (wahlfreier Zugriff mit direkter Adressierung):
        
        Code (perl): (dl )
        
        1 2
        
        $leistung = $daten->{"SystemState.Global.Measurement.AcPowerTotal"}{val};

View all threads created 2015-05-26 09:51.