In Perl ist ein regulärer Ausdruck ein oder mehrere Zeichen verwendet, um Werte in Strings , wie bestimmte Buchstaben , Kennzeichnungen oder Leerzeichen entsprechen. Sie können Funktionen, die reguläre Ausdrücke verwenden mit dem Perl Substitution Betreiber Leerzeichen passen und zu entfernen. Das Zeichen "^" können Sie festlegen, nur Zeichen am Anfang der Zeichenfolge , lässt das "$" Sie identifizieren nur diejenigen am Ende , oder Sie können diese auslassen und passen alle Leerzeichen in der Zeichenfolge. Anleitung
1

Öffnen Sie ein Perl-Programm -Datei, und legen Sie den Cursor an den Anfang
2

Geben Sie den folgenden Code: .

Sub trim ($ ) {

my $ string = shift;

$ string = ~ s /\\ s + //g;

return $ string;

}

Diese Funktion verwendet die Substitution operator " s ///" , um die weißen Bereiche entsprechen und zu entfernen. Die "\\ s " Charakter-Klasse passt auf alle Leerzeichen und ersetzt sie durch nichts. Mit anderen Worten , es entfernt sie . Es gibt einen String zurück , der keine Leerzeichen enthält überall
3

Geben Sie den folgenden Code: .

Sub ltrim ($) { my $

string = shift;

$ string = ~ s /^ \\ s + //;

return $ string; }

Diese Funktion ist nur entfernt führende Leerzeichen vor allen anderen Zeichen . Die " ^ \\ s ", sagt keine weißen Bereiche entsprechen nur bis zum ersten nicht-weißen Leerzeichen , dann entfernen sie
4

Geben Sie den folgenden Code: .

Sub rtrim ($ ) {

my $ string = shift;

$ string = ~ s /\\ s + $ //;

return $ string;

}

Diese Funktion ist nur entfernt führende Leerzeichen am Ende des Strings. Das "s + $ ", sagt keine weißen Bereiche erst nach allen nicht- Leerzeichen übereinstimmen, dann entfernen Sie diese.
5

Speichern Sie die Programmdatei.