RegEx für HTTPMOD ( Array )

[GunterB]

Ich würde gerne ein Array aus der HTML Seite meines Switchs mit RegEx splitten, so, dass ich für jeden Port den Status als separates Reading bekomme:

Code Auswählen Erweitern

link_status:[5,5,5,6,0,0,0,6,0,0]
soll zu folgenden Readings werden:

Code Auswählen Erweitern

port1: 5
port2: 5
port3: 5
port4: 6
port5: 0
...

So sieht mein Matching RegEx auf das Array aus
https://regex101.com/r/6yo4qV/1

Kann mir jemand helfen?

[betateilchen]

Ich würde sowas über eine Funktion in der 99_myUtils lösen.

Code Auswählen Erweitern

my @values = ( "link_status:[5,5,5,6,0,0,0,6,0,0]" =~ /(\d)/g );

Dann hast Du ein Array, in dem die einzelnen Ziffern stehen (vorausgesetzt, die Zahlenwerte bestehen immer nur aus einer Ziffer, ansonsten muss die regex entsprechend angepasst werden).
Damit kannst Du in einer loop die entsprechenden readings schreiben.

HTTPMOD kann das sicher auch irgendwie, aber mit den 5 Mio Attributen kann ich mich in diesem Leben nicht mehr anfreunden.

Code Auswählen Erweitern


use Data::Dumper;
sub test {
  my @values = ( "link_status:[5,5,5,6,0,0,0,6,0,0]" =~ /(\d)/g );
  Debug Dumper \@values;
}


liefert als Ergebnis:

Code Auswählen Erweitern


2022.04.19 17:28:12 1: DEBUG>$VAR1 = [
          '5',
          '5',
          '5',
          '6',
          '0',
          '0',
          '0',
          '6',
          '0',
          '0'
        ];


[GunterB]

Danke für die Hilfe!

Ich versuche eigentlich immer, bevor ich einen eigenen Weg gehe und mir unnötig Arbeit mache, das gewünsche mit vorhandenen Werkzeugen zu bekommen.
Aber wenn ich für die Suche der Werkzeuge länger brauche als für die Neuerfindung des Rads, ist das nervig.

Neues Rad:

Code Auswählen Erweitern

## ReadingArrayToReadings
## Device
## ReadingName
## Value e.g.:  "link_status:[5,5,5,6,0,0,0,6,0,0]"
sub ReadingArrayToReadings($$$) {
    my ($device, $reading, $value) = @_;
    my @values = ( $value =~ /(\d)/g );
    my $i = 0;

    foreach(@values) {
        my $old_val = ReadingsVal($device, "${reading}_${i}", "-");
        if ($old_val ne $_) {
            fhem("setreading ${device} ${reading}_${i} ${_}");
        }
        $i += 1;
    }
    ## evtl weitere vorhandene Einträge löschen (wenn Array kleiner wird)
}

Code Auswählen Erweitern

defmod NTFY_SWITCH3_LinkStatus notify SWITCH3:Link_Status.* {\
    my $LinkStatus = ReadingsVal($NAME, "Link_Status", "-");;\
    ReadingArrayToReadings($NAME, "Link_Status", $LinkStatus);;\
}