Perl nicht über eine eingebaute Funktion , die Leerzeichen entfernt vom Anfang oder Ende eines Strings , aber Sie können die eingebauten Ersatz -Operator verwenden , um die gleiche durchführen Funktion . Die Substitution Operator verwendet Standard regulären Ausdrücken , um einen Abschnitt einer Schnur durch andere Zeichen zu ersetzen. Entfernen Recherchieren helfen aufzuräumen und Validierung von Benutzereingaben und Sie können es auch verwenden , um unnötige Leerzeichen in einem Text- Datei zu entfernen. Anleitung
1
Öffnen Sie ein leeres Dokument Klartext
2
Geben Sie die folgenden Zeilen in das Perl-Skript zu starten: . !
# Bin /perluse strengen ; use warnings ;
3
Geben Sie die folgenden Zeilen in eine Zeichenfolge, die Leerzeichen enthält am Anfang und am Ende der Zeichenfolge erstellen und drucken die Zeichenfolge an den Bildschirm :
< p> my $ orig_string = " Dies ist ein String ... "; print $ orig_string . " \\ n ";
4
Geben Sie die folgenden Zeilen die Leerzeichen aus dem Anfang des Strings entfernen und drucken Sie die bearbeitete String auf den Bildschirm :
< p> $ orig_string = ~ s /^ \\ s + //; print $ orig_string ;
5
Geben Sie die folgenden Zeilen , die Leerzeichen aus dem Ende der Zeichenfolge zu entfernen, und drucken Sie das bearbeitete String auf den Bildschirm : . .
$ orig_string = ~ s /\\ s + $ //; print $ orig_string " \\ n";
6
Speichern und schließen Sie die Datei
< br >