Wie nehme ich die Teilzeichenfolge einer gegebenen Zeichenkette bis zum ersten Erscheinen des angegebenen Zeichens?

Siehe perldoc -f index :

Verwenden Sie substr :

Oder mit regexp:

gibt Ihnen hello

Eine andere Möglichkeit:

Im Geiste von TIMTOWTDI und Einführung neuer Funktionen: nicht-destruktive Option /r

Das gierige .* end hackt alles nach der ersten Periode ab, einschließlich möglicher Zeilenvorschubzeichen (Option /s ), behält aber die ursprüngliche Zeichenfolge bei und beseitigt die Notwendigkeit, dass ein Listenkontext durch Parens erzwungen wird ( /r Option) ).

Zitat von perlop:

  

Wenn die Option / r (nicht-destruktiv) verwendet wird, wird der Befehl ausgeführt   Substitution auf einer Kopie der Zeichenfolge und anstatt die   Anzahl der Ersetzungen, gibt es die Kopie zurück, ob a   Substitution aufgetreten. Die ursprüngliche Zeichenfolge wird nie geändert, wenn / r ist   benutzt. Die Kopie wird immer eine einfache Zeichenfolge sein, auch wenn die Eingabe ein ist   Objekt oder eine gebundene Variable.