Entfernen von einen Wagenrücklauf aus einer Zeichenfolge in Perl

Schreiben Sie in der Skriptsprache Practical Extraction and Report Language Programme, wenn Sie ein Tool, die schnell automatisieren Zeichenfolgenbearbeitung benötigen, Benutzerinteraktion und akzeptable Formatierung zu liefern. Wagenrückläufe tendenziell zu stören, die Formatierung von Benutzereingaben und Perl-Programm ausgegeben, so dass Textzeichenfolgen unübersichtlich und schwer zu verfolgen. Verwenden Sie das Schlüsselwort "Chomp" entfernen Wagenrückläufe und Aufräumen Programm ein- und Ausgang.

Anweisungen

1 Öffnen Sie ein terminal Befehlszeile-Fenster auf einem Computer, der perl aktiviert ist. Öffnen Sie die Perl-Skript-Datei mit einer Textzeichenfolge für die den Wagenrücklauf entfernt werden muss.

2 Verwenden Sie die Pfeiltasten auf der Tastatur, um den Cursor zu positionieren, direkt nach der Zeile, in dem eine Variable die Textzeichenfolge als Wert zugewiesen wird. Beispielsweise möchten Sie entfernen den Wagenrücklauf aus der "Test" Zeichenfolge unten:

$myVariable = "Test\n";

Fügen Sie eine "Chomp" Funktion Zeile für die Text-String-Variable unmittelbar hinter den Text Zeichenfolge zuweisen, wie unten geschrieben:

chomp($MyVariable);

3 Verwenden Sie die Pfeiltasten zum Positionieren Sie den Cursor nach einer Zeile, die Benutzereingaben akzeptiert und schreiben ein "Chomp" Zeile für die Eingabe Text String-Variable der Wagenrücklauf aus Benutzereingaben um zu bereinigen die Formatierung entfernen Funktion. Zum Beispiel:

während (Benutzer $input = < STDIN >) {}

print "The user typed '$input'\n";

last if ($input eq '');

}

wird der Zeilenumbruch mit Eingabe des Benutzers enthalten, wenn der Benutzer die "Enter"-Taste drückt. Zum Entfernen der Zeilenumbruch einfügen der Funktion "Chomp" wie unten geschrieben:

während (Benutzer $input = < STDIN >) {}

chomp($input);

print "The user typed '$input'\n";

last if ($input eq '');

}