[Perl] Zeichen aus String entfernen

Hi!

Danke erst mal für die Replys zu meiner letzten Frage. Jetzt habe ich allerdings noch eine…
(und das war’s dann auch erstmal :wink:)

Wie kann ich es erreichen, dass der letzte Buchstabe von einer Variablen wegfällt. Also ich meine beim Einlesen der Variablen soll immer der letzte Buchstabe entfallen, wobei ich nicht vorher weiss, wieviel Buchstaben der gesamte String vorher hat.

Bsp: Variable=„HalloL“
Nach dem Einlesen möchte ich „Hallo“ erhalten…

Danke nochmals
Patrick

Hallo!

Ich kenne mich mit Perl eigentlich
ueberhaupt nicht aus, aber ich habe
gehoert, dass Perl richtig gut fuer
Stringverarbeitung ( nicht nur natuerlich )
ist.
Gibt es dann nicht sowas wie substring?
Dann koennte man z.B.
[Java]: str = str.substring( 0, str.length()-1 );
machen.

Anregung von
Patrick Hillebrand

Wie kann ich es erreichen, dass der letzte Buchstabe von einer
Variablen wegfällt?

Ganz einfach:

chop($string) entfernt das letzte Zeichen,
chomp($string) entfernt nur abschließende Newline-Zeichen (gut für eingelesene Daten)…

-)

Moin,

Bsp: Variable=„HalloL“
Nach dem Einlesen möchte ich „Hallo“ erhalten…

Nach dem Einlesen?

Verusch mal das:
s/(.*)./\1/
Wenn’s nicht klappt, dann:
s/(.*?)./\1/

Thorsten

[Java]: str = str.substring( 0, str.length()-1 );

holli