Reading splitten

[stefan-dd]

Ich möchte ein reading aufsplitten.

Reading zum splitten hat 4 Stellen (4542)

Soll in reading a und reding b mit jeweils 2 Stellen getrennt werden.

Mein Versuch:

Code Auswählen Erweitern

a {(split //,ReadingsVal($name,"test","00"))[0]}Damit bekomme ich aber nur eine Stelle abgeteilt, Wie muss es für 2 Stellen aussehen?

Danke

[MadMax-FHEM]

Mich wundert, dass du so tatsächlich nur eine Stelle bekommst...
Bzw. was bekommst du?
Immer die erste Ziffer?
Dann liegt das verm. an [ 0 ]

Wenn du zu split liest, dann sollte dir klar sein, dass die Funktion anhand von Trennzeichen trennt.

Wenn deine Ziffern ohne irgendein Trennzeichen aneinander pappen, wie soll split splitten?

Ich würde mal substr nehmen.
Da kannst du angeben, welche Teile du haben willst...
Mit Start und Länge..

Gruß, Joachim

[Ralli]

Mit regular expression:

Code Auswählen Erweitern

my $val = "1234";
$val =~ /(..)(..)/;
my $split1 = $1;
my $split2 = $2;


[betateilchen]

Wenn du zu split liest, dann sollte dir klar sein, dass die Funktion anhand von Trennzeichen trennt.
Wenn deine Ziffern ohne irgendein Trennzeichen aneinander pappen, wie soll split splitten?

Die Frage ist einfach zu beantworten und Deine Ansicht ist grundsätzlich falsch.
Vielleicht solltest Du auch nochmal zu split nachlesen?

Siehe offizielle Dokumentation zur perl Funktion split():

However, this:

Code Auswählen Erweitern

my @x = split(//, "abc"); # ("a", "b", "c")
uses empty string matches as separators; thus, the empty string may be used to split EXPR into a list of its component characters.

Beispiel:

Code Auswählen Erweitern

sub test {
  my $val = "1234";
  my @a = split(//,$val);
  Debug Dumper \@a;
}

funktioniert völlig einwandfrei und liefert als Ergebnis:

Code Auswählen Erweitern

2024.01.21 13:48:48 1: DEBUG>$VAR1 = [
          '1',
          '2',
          '3',
          '4'
        ];


[MadMax-FHEM]

Trotzdem geht dann was der TE will nicht einfach nur mit split.

Gruß, Joachim

[betateilchen]

Mit regular expression:

Code Auswählen Erweitern

my $val = "1234";
$val =~ /(..)(..)/;
my $split1 = $1;
my $split2 = $2;


Das geht auch einfacher:

Code Auswählen Erweitern

my ($a,$b) = $val =~ /(\d\d)(\d\d)/;

[betateilchen]

Trotzdem geht dann was der TE will nicht einfach nur mit split.

Doch, das würde auch gehen. Aber mit regex ist es einfacher.

Code Auswählen Erweitern

my @a = split(//,$val);
my $a = "$a[0]$a[1]";
my $b = "$a[2]$a[3]";

Man könnte $a und $b natürlich auch mit jeweils zwei split() Aufrufen und der Angabe des array-Index erzeugen.
Aber das wird dann schwer zu lesen, funktioniert trotzdem problemlos "nur mit split".

[MadMax-FHEM]

Doch, das würde auch gehen.

Das würde mich aber jetzt interessieren...
...man lernt ja nie aus.

Gruß, Joachim

[betateilchen]

Ich wusste, dass diese Frage kommt...
Siehe meinen vorherigen Beitrag, den ich gerade ergänzt habe.

[betateilchen]

Dann liegt das verm. an

• 

Um solche Effekte mit unerwünschten smileys zu verhindern, wenn man eigentlich "0 in eckigen Klammern" haben möchte, gibt es in den Optionen zum Beitrag das Feld, in dem man "Keine Smileys verwenden" ankreuzen kann. Das geht auch nachträglich noch.

[MadMax-FHEM]

Ich wusste, dass diese Frage kommt...
Siehe meinen vorherigen Beitrag, den ich gerade ergänzt habe.

Dass es so geht ist klar aber ist halt nicht mit nur split
Trotzdem danke

Ja das mit den ungewollten Smilies

Gruß, Joachim

[betateilchen]

aber ist halt nicht mit nur split

Code Auswählen Erweitern

sub test {
  my $val = "1234";
  my $a = (split(//,$val))[0].(split(//,$val))[1];
  my $b = (split(//,$val))[2].(split(//,$val))[3];
  Debug "$a $b";
}