gelöst: userReadings mit Tausenderpunkt formatieren

[NewbieNew]

Hallo an alle,
ich suche krampfhat eine Lösung. Ich möchte ein userReading durch 1000 teilen und die Anzeige mit Komma und Tausenderpunkt formatieren.

Ein Stück habe ich schon geschafft:

Code Auswählen Erweitern

kWh { my $val = (ReadingsVal("$name", "total_consumption", 0)/1000); $val =~ s/\./,/; return $val;}


macht aus 26730040   26730,04

Also fehlt nur noch der Tausenderpunkt. Würde mit bitte jemand auf die Sprünge helfen?

Dankeschön

[DeeSPe]

Hatte ich auch mal hier im Forum gefunden.

Code Auswählen Erweitern

sub tausender
{
  my $zahl = shift;
  my $text = reverse $zahl;
  $text =~ s/\./\,/g;  #replace decimal point by decimal comma
  $text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
  return scalar reverse $text;
}

Gruß
Dan

[NewbieNew]

Hallo Dan,
dankeschön. Aber wie baue ich das in mein userReading ein?

Danke

[DeeSPe]

Na die Funktion in die 99_myUtils.pm und dann:

Code Auswählen Erweitern

kWh:total_consumption.* {tausender(ReadingsNum($name,'total_consumption',0)/1000)}

Gruß
Dan

[NewbieNew]

Super, Dankeschön. Läuft.

Schönen Sonntag Euch allen.