[Erledigt!]Vorschlag/Wunsch deleteKeyValue()

[Benni]

Hallo Rudi,

leider gibt es aktuell keine Möglichkeit, ein Key-Value-Pair aus dem KVP-File zu löschen, außer die Datei manuell anzufassen. Das macht spätestens mit configDb schon keinen Spaß mehr

Von daher wäre eine Funktion analog zu setKeyValue() und getKeyValue() wünschenswert.

Ich habe das mal analog zu setKeyValue implementiert und bei mir getestet (hat funktioniert!):

Code Auswählen Erweitern


deleteKeyValue($)
{
  my ($key) = @_;
 
  my $fName = AttrVal("global", "keyFileName", "uniqueID");
  $fName =~ s/\.\.//g;
  $fName = $attr{global}{modpath}."/FHEM/FhemUtils/$fName";
  my ($err, @old) = FileRead($fName);
 
  my @new;
  return if($err);

  foreach my $l (@old) {
      push @new, $l if($l !~ m/^$key:/);
    }
  return FileWrite($fName, @new);
}


Evtl. sollte man noch verhindern, das $key selbst regex enthält, da sonst im schlimmsten Fall (.*) alle KeyValue-Pairs gelöscht würden.

Gruß Benni

[betateilchen]

leider gibt es aktuell keine Möglichkeit, ein Key-Value-Pair aus dem KVP-File zu löschen

Doch gibt es. Hast Du mal einen Blick in die fhem.pl geworfen? Da steht sogar wörtlich drin, wie das geht.
Und das wird auch in einigen Modulen genau so gemacht, z.B. im Rahmen der DeleteFn()

Code Auswählen Erweitern


# Use an undefined value to delete the key
sub
setKeyValue($$)
{
  my ($key,$value) = @_;



--

[Benni]

Doch gibt es. Hast Du mal einen Blick in die fhem.pl geworfen?

Code Auswählen Erweitern


# Use an undefined value to delete the key


Ja habe ich, aber den Kommentar habe ich tatsächlich nicht wahrgenommen.

Das passt dann für mich! -> Wunsch erfüllt!

gb#