Wie Regex in Perlfunktion einbauen (Variable zurechtstutzen)?

[fiedel]

Hallo Zusammen,

bin gerade sowas von hart an meine Grenzen gestoßen... Da frag ich doch mal - nicht die Maus, sondern die Perlkönner. 

In einer Perlfunktion in der MyUtils habe ich eine Variable, die z.B. den Wert " 5.0 m³ " enthält. Ich möchte damit rechnen und dazu muss das " m³ " verschwinden. Das Regex sollte " \d.\d " sein, soviel hab ich schon herausbekommen.

Wie vermixe ich das aber nun mit der Variable, so dass nur der Wert ohne Maßeinheit übrig bleibt? Es geht um die Ausgabe von " ReadingsVal("zi_level","state",0) " Hier mal die Funktion im Original:

Code Auswählen Erweitern


#Zisterne Levelanzeige
######################
sub zi_balken()
{
my $p=int(ReadingsVal("zi_level","state",0)*10);
return '<div align="bottom" style="width:20px;height:'.(81.6-$p).'px;margin-left:30px;background-color:grey"></div><div align="bottom" style="width:20px;height:'.$p.'px;margin-left:30px;background-color:blue"></div>'
}


Ich könnte natürlich auch die Anzeige der Maßeinheit abschalten. So hatte ich es bis jetzt. Aber die Details sind ja wichtig und lernen möchte ich auch was neues... 

Gruß

Frank

[Dietmar63]

ich habe es mal so gemacht:

Code Auswählen Erweitern


       $reg    = '(\d+\.\d+) perl.*';

       if ($res=~/$reg/g ){
         my $numerischerWert = $1;
       }



sucht nach einer Zahl des Formats 9999.9999, beliebig viele Ziffern vor und nach dem Komma. Danach muss perl als text folgen.
Die Klammern sorgen dafür dass subTreffer in den Variablen $1 .. $10 ... abgelegt werden. Also in diesem Fall die nackte Zahl.

Der \ vor dem Punkt ist notwendig, damit die Sonderzeichenfunktion maskiert wird.

[Dietmar63]

hat die Anregung dir geholfen?

[fiedel]

Hi Dietmar,

vielen Dank für das Beispiel! Leider liefert mein Zisternensensor im Moment keine nutzbaren Werte. Hab letztens wegen dieser Berechnung so viel rumprobiert, dass nun mein reading "content" fehlt. Aktuell buddle ich aber im Garten für die Bewässerungsanlage, sodass ich an der Sensorgeschichte nicht weitermkomme. Ein Stress mit der Technik... 

Wenn ich wieder im "Innendienst" bin, bringe ich das in Ordnung und teste auch dein Beispiel.

Nochmals vielen Dank und viele Grüße

Frank

[kpwg]

Hallo Frank,

ich bin zwar alles andere als ein Perlkönner, aber ich würde die Betrachtungsweise ändern: immer mit Zahlen rechnen und erst bei der Anzeige einen String daraus machen. Meine Dauerbaustelle ist ECMD bzw. Ethersex, da ich auch gerne zum Lötkolben greife. Da funktioniert das bestens.

Ein aktuelles Beispiel: http://forum.fhem.de/index.php/topic,25416.0.html
Ich mache STATE erst ganz am Ende mit stateFormat "rund". Dabei ist mir state weniger wichtig; hauptsache sinnvoll belegt. Bei mehreren identischen readings verschiedener Devices mit readingsgroup.

Viele Grüße, Ricardo

[fiedel]

Hi Ricardo,

da muss ich dir voll zustimmen. Sonst mache ich das auch so. Werde auch noch diese Variante versuchen. Ggf. auch per Readingsgroup. In diesem Fall war die Herangehensweise anders, da ich versuche aus dem an sich autarken Wert "Füllstand Zisterne" die Niederschlagsmenge zu berechnen. Das klappt übrigens nur, wenn die Zisterne noch nicht ganz voll ist. 

Gruß

Frank

[Elektrolurch]

Hallo,

da gibt es mehrere Möglichkeiten:

1.
$d enthält den Wert mit Maßeinheit:
($d,$e) = split(' ',$d);
dann hast Du in $d den Wert, in $e die Maßeinheit, wenn beides durch ein Leerzeichen getrennt sind.
2.
$d=~s/m3//;

Ersetzt in $d den Teilstring m$ durch nichts.
Wäre dann sinnvoll,  wenn zwischen Wert und Einheit kein Leerzeichen steht.

Dass müsste Dir so weiterhelfen und Deine perl-Kenntnisse erweitern

Gruß

Elektrolurch

[fiedel]

Hi Elektrolurch,

vielen Dank! Werde das probieren. Auch deine Erklärung dazu ist so, dass ich sie verstehe. Durch die vorbelegten Variablen von Perl in Verbindung mit Regex gibt es meist einen irren Kauderwelsch an Sonderzeichen den man erst mal interpretieren können muss. 

Gruß

Frank