Perl Chomp -Funktion

"Der chomp () Funktion ist eine integrierte Funktion von Perl, um das neue Zeichen (\ n) aus dem Ende der Zeichenfolge und die Anzahl der von dieser Funktion entfernten neuen Zeilenzeichen zu entfernen. Diese Funktion kann im Skript verwendet werden, wenn das Lesen der String -Daten nach Entfernen des neuen Zeichenzeichens erforderlich ist. Der jeweilige Zeichenfolgewert kann mit dem Text aus dem Text entfernt werden chomp () Funktion das wird in der gespeichert $/ ($ Input_record_separator). Perl hat eine weitere integrierte Funktion namens namens hacken() Dadurch wird das letzte Zeichen der String -Daten entfernt, die ein neues Zeichen oder ein anderes Zeichen sein können. Die Verwendung der Verwendung der chomp () Funktion und die Unterschiede zwischen den Chomp () und Chop () Funktionen wurden in diesem Tutorial gezeigt.”

Syntax

Verschiedene Syntaxen der chomp () -Funktion sind unten gezeigt.

Chomp

Die obige Syntax wird verwendet, um die neue Zeile aus dem Wert der $ _ Variablen zu entfernen.

Chomp (String)

Die obige Syntax wird verwendet, um die neue Zeile aus der String -Variable zu entfernen.

Chomp (Array)

Die obige Syntax wird verwendet, um die neue Zeile aus der Array -Variablen zu entfernen.

Diese Funktion gibt die Anzahl der Newlines zurück, die aus der Skalarvariablen oder der Zeichenfolge oder dem Array entfernt wurden. Im nächsten Teil des Tutorials wurden verschiedene Verwendungen der Funktion chomp () gezeigt.

Beispiel 1: Entfernen Sie die Neue Leitung aus der Skalarvariablen

Erstellen Sie eine Perl -Datei mit dem folgenden Code, mit dem die Newline aus dem entfernt wird Skalar Variable. In der Skalarvariablen wurde hier ein Stringwert definiert. Der chomp () Funktion wurde in diesem Code ohne Argument verwendet. Der Wert der Skalar Die Variable wurde vor und nach der Verwendung der Verwendung gedruckt chomp () Funktion.

Druck "den Wert der Skalarvariablen vor chomp (): \ n";
# Definieren Sie die spezielle Variable $ _
$ _ = "LinuxHint \ n";
# Drucken Sie die $ _ vor, bevor Sie die neue Linie entfernen
drucken;
# Entfernen Sie die Newline vom Wert von $ _
$ insgesamt = chomp;
# Drucken Sie die Gesamtzahl der entfernten Zeichen
Druck "Gesamtzeichen entfernt: $ Total \ n";
Druck "den Wert der Skalarvariablen nach chomp (): \ n";
# Drucken Sie die $ _ nach dem Entfernen der Neuzeile
drucken;

Ausgang

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-2: Entfernen Sie die Neue Leitung aus der Zeichenfolgevariablen

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Newline aus dem Zeichenfolgenwert entfernen. Eine String -Variable mit 2 neuen Zeilenzeichen wurde im Code deklariert. Der erste chomp () Funktion Entfernen Sie das letzte neue Zeilencharakter und den zweiten chomp () Funktion Entfernen Sie den nächsten neuen Zeichen des neuen neuen Line. Der dritte chomp () Funktion wird nichts entfernen.

# Definieren Sie eine String -Variable mit zwei neuen Zeilenzeichen
$ str = "Perl -Programmierung \ n \ n";
# Entfernen Sie die Newline aus der Zeichenfolge, falls vorhanden
$ num = chomp ($ str);
Drucken "den Zeichenfolgenwert nach Entfernen von Newline: $ str \ n";
# Drucken Sie die Gesamtzahl des entfernten Zeichens
Drucken "Gesamtzahl entfernter Zeichen): $ num \ n";
# Entfernen Sie die Newline aus der Zeichenfolge, falls vorhanden
$ num = chomp ($ str);
Drucken "den Zeichenfolgenwert nach Entfernen von Newline: $ str \ n";
# Drucken Sie die Gesamtzahl des entfernten Zeichens
Drucken "Gesamtzahl entfernter Zeichen): $ num \ n";
# Entfernen Sie die Newline aus der Zeichenfolge, falls vorhanden
$ num = chomp ($ str);
Drucken "den Zeichenfolgenwert nach Entfernen von Newline: $ str \ n";
# Drucken Sie die Gesamtzahl des entfernten Zeichens
Drucken "Gesamtzahl entfernter Zeichen): $ num \ n";

Ausgang

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-3: Entfernen Sie die Neue Zeile aus den mehreren Variablen

Erstellen Sie eine Perl -Datei mit dem folgenden Code, mit dem die Newline aus den mehreren Variablen entfernt wird. Im Code wurden zwei String -Variablen mit Newline definiert. Als nächstes wurde der Chomp () im Code verwendet, um die Neulinnern aus beiden Variablen zu entfernen. Die Ausgabe der chomp () Funktion wurde später gedruckt.

# Definieren Sie die Mehrfachstring -Variablen
$ langual = "Perl \ n";
$ Website = "LinuxHint.com \ n ";
# Verwenden Sie die Chomp -Funktion für mehrere Variablen
$ output = chomp ($ langual, $ Website);
# Drucken Sie die gehackten Variablen mit anderen Zeichenfolgendaten
Drucken "Lernen Sie $ Language von $ Website \ n";
# Drucken Sie den von der Chomp -Funktion zurückgegebenen Wert
Drucken "Gesamtzahl der neuen Linien entfernt: $ output \ n";

Ausgang

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-4: Entfernen Sie die bestimmte Zeichenfolge aus einer anderen Zeichenfolge

Der chomp () Kann verwendet werden, um ein bestimmtes Zeichen oder eine bestimmte Zeichenfolge zu entfernen, indem die Variable der Eingabedatensatzabscheider (IRS) definiert wird. Erstellen Sie eine Perl -Datei mit dem folgenden Code, mit dem das Wort „entfernen wird“Hinweis”Aus einer String -Variable. In dem Code, der das Wort enthält, wurde eine String -Variable definiertHinweis3 Mal am Ende der Saite. Die IRS -Variable wurde hier verwendet, um das Wort zu speichern “Hinweis.Als nächstes wurde die chomp () -Funktion dreimal aufgerufen, um das Wort zu entfernenHinweis”Aus der Hauptschnur.

# Definieren Sie eine String -Variable
$ str = "Perl von LinuxhinthinthinTinThern";
# Legen Sie den Eingangsdatensatzabscheider ein
$/ = 'Hinweis';
# Drucken Sie die Zeichenfolgenvariable, bevor Sie Chomp verwenden
drucken $ str, "\ n";
chomp $ str;
# Drucken Sie die Zeichenfolgevariable nach dem ersten Antragstkörper zum ersten Mal
drucken $ str, "\ n";
chomp $ str;
# Drucken Sie die Zeichenfolgenvariable nach dem zweiten Antrag Chomp zum zweiten Mal
drucken $ str, "\ n";
chomp $ str;
# Drucken Sie die Zeichenfolgenvariable, nachdem Sie Chomp zum dritten Mal angewendet haben
drucken $ str, "\ n";

Ausgang

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-5: Entfernen Sie eine neue Zeile aus jedem Array-Wert

Erstellen Sie eine Perl -Datei mit dem folgenden Code, mit dem die Newline von jedem Wert eines Arrays entfernt wird. Der chomp () Funktion wurde mit dem Array verwendet, um die neue Linie aus den Array -Werten zu entfernen. Die Array -Werte vor und nach dem Entfernen der Newline und der Ausgabe der chomp () Funktion wird nach der Ausführung des Codes gedruckt.

# Definieren Sie ein Array von Stringwerten mit Newline
$ flowers = ["Rose \ n", "Lily \ n", "Sun Flower \ n", "Cosmos \ n", "Daisy \ n"];
# Drucken Sie die Hauptarray -Werte
Drucken Sie "die Array -Werte, bevor Sie Chomp: \ n @$ Flowers \ n" verwenden;
# NEWLINE von jedem Array -Wert entfernen
$ output = chomp @$ flowers;
# Drucken Sie die Ausgabe der Chomp -Funktion
Druck "Total Newline entfernt: $ output \ n";
# Drucken Sie die geänderten Array -Werte
Druck "Die Array -Werte nach Verwendung von Chomp: \ n @$ Flowers \ n";

Ausgang

Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Abschluss

Die Art und Weise, wie die Funktion chomp () zum Entfernen der Newline verwendet wird, oder die bestimmte Zeichenfolge aus der Variablen hat hier unter Verwendung mehrerer Perl -Beispiele gezeigt. Ich hoffe, dieses Tutorial hilft den Perl -Benutzern, die Verwendung dieser Funktion ordnungsgemäß zu kennen.