Ergebnis von split auf Nummern begrenzen.

[Frank_Huber]

Moin Moin,

Ich zerlege einen String per Split. String: "Lamp 1: off (6 hours)"

Code Auswählen Erweitern

{(split " ","Lamp 1: off (666 hours)")[3]} gibt mir als Ergebnis

Code Auswählen Erweitern

(666 aus.

Es gibt doch hier bestimmt einen einfachen Weg das auf die numerische "666" zu begrenzen?

Danke & Grüße
Frank

[TomLee]

Sry, denke das war Blödsinn, chop entfernt normal das letzte Zeichen, keine Ahnung warum das geklappt hat.

So wärs eine Möglichkeit die auf jedenfall korrekt umgesetzt wäre:

Code Auswählen Erweitern

{my $v=(split " ","Lamp 1: off (6 hours)")[3];;$v =~ s/^.//;;return $v;;}

[Frank_Huber]

Danke!
Hab mich schon gewundert wo die Antwort hin ist.
das chop hat funktioniert um aus "(6" "6" zu machen. aus "(666" wurde aber auch nur "6"
Das mit dem RegEx jetzt funktioniert.

[DeeSPe]

Hier noch eine andere Lösung:

Code Auswählen Erweitern

{my $v="Lamp 1: off (6 hours)";;return $v=~/^.+\((\d+)\shours\)$/?$1:""}

Gruß
Dan

[Otto123]

Einen hab ich auch für den Fall das es am Ende wirklich nur darum geht das erste Zeichen weg zu hacken und es ums Wort und nicht um numerisch gehen sollte:

Code Auswählen Erweitern

{my $v=(split " ","Lamp 1: off (6 hours)")[3];;substr $v,1}
Gruß Otto

[TomLee]

Kannst du eine Doku verlinken in der man sich zu dem ,1 einlesen kann, meine hab ich bisher noch nicht gelesen gehabt .

[Otto123]

Hier https://perldoc.perl.org/functions/substr

Die Beispiele zeigen: es geht auch von hinten

[TomLee]

Ups, wollte das substr nicht sehen, weil du die Klammern weggelassen hast (hatt ich ein return beim überlesen angenommen ). An substr dacht ich erst, aber zu doof gewesen um auf die einfachste Variante zu kommen nur die Startposition anzugeben