Problem mit Perl split() in 99_myUtils

[dt2510]

Ich versuche gerade eine Zeichenkette an einem "." zu splitten und habe folgenden Befehl verwandt

$myPower enthält "367.0"

Code Auswählen Erweitern

my @myArray2 = split(".",$myPower);
Log(3,$myArray2[0]);

Im Logfile wird eine Leerzeile geloggt und daraufhin bekomme ich die Meldung

Code Auswählen Erweitern

PERL WARNING: Use of uninitialized value $text in concatenation (.) or string at fhem.pl line 950, <FH> line 3767.

Wie kann ich an einem "." trennen ohne dass Perl von einer Stringverkettung ausgeht ?

[Otto123]

Mein Test in der FHEM Kommandozeile:

Code Auswählen Erweitern

{my $a = "367.0";;my @wp = split /\./,$a;;return @wp[0]}
Liefert 367
Gruß Otto

[betateilchen]

zwei Fehler in einem einzigen Funktionsaufruf, das ist cool

• der Punkt muss maskiert werden, da er in regexp eine spezielle Funktion hat
• doppelte Anführungszeichen dürfen nicht im split Operator verwendet werden, weil doppelte Anführungszeichen eine spezielle Funktion haben

Einen Lösungansatz hat Otto schon gepostet, wenn es mit Anführungszeichen sein soll, sieht das so aus:

Code Auswählen Erweitern

split('\.',$myPower)

Und wenn es wirklich nur darum geht, den ganzzahligen Anteil zu bekommen, geht das auch ganz ohne split.

Code Auswählen Erweitern

int($myPower)

[dt2510]

Ah ja !!! Das hilft mir weiter 😊
Ich hab - von Delphi/Pascal kommend - immer noch Probleme mit den Perl Eigenheiten und RegEx meide ich wo es geht, weil ich immer noch nicht durchsteige.
Dann gibt es ja mit Sicherheit auch eine Funktion, das erste "Wort" eines Strings zu ermitteln ohne gleich splitten zu müssen oder ?

[betateilchen]

aber split() nutzt doch auch nur regexp...

Code Auswählen Erweitern


my $text = "Das ist ein String";
$text =~ /^(\S+)/;
return $1;


[dt2510]

aber split() nutzt doch auch nur regexp...

weshalb waren wohl 2 Fehler in einem Aufruf ?