Verwendung der Perl -Substr -Funktion

„Perl substr () -Funktion wird hauptsächlich zum Schneiden des jeweiligen Teils der Hauptzeichenfolge verwendet. Diese Funktion kann auch zum Ersetzen des Teils der Hauptzeichenfolge durch eine andere Zeichenfolge verwendet werden. In diesem Tutorial wurden verschiedene Möglichkeiten zum Schneiden oder Schneiden und Austausch eines bestimmten Teils der Zeichenfolge gezeigt, indem das Perl -Skript verwendet wird.”

Syntax
Die Syntax der Funktion substr () wird unten erwähnt.

Substr (Mainstring, Startindex, [, Länge [, Austausch]])

• Mainstring: Das erste Argument wird verwendet, um die Hauptzeichenfolge zu speichern, aus der das Substring geschnitten wird.
• Startindex: Das zweite Argument wird verwendet, um die Ausgangsposition zum Schneiden oder Austausch des Substrings festzulegen. Der Wert dieses Arguments kann positiv oder negativ sein.
• Länge: Das dritte Argument wird verwendet, um die Länge des Substrings festzulegen. Der Wert dieses Arguments kann positiv oder negativ sein, und dieses Argument ist optional.
• Austausch: Das vierte Argument wird verwendet, um den jeweiligen Teil der Hauptzeichenfolge basierend auf den Werten der zweiten und der dritten Argumente zu ersetzen. Dieses Argument ist optional.
• Die Substring der jeweiligen Länge wird durch die Substr () -Funktion zurückgegeben.

Im nächsten Teil dieses Tutorials wurden verschiedene Verwendungen der Funktion substr () gezeigt.

Beispiel 1: Verwendung der Funktion substr () ohne optionales Argument

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion substr () ohne optionales Argument anzeigt. Der positive Startindexwert wurde in der ersten Substr () -Funktion verwendet. Der Indexwert beginnt also mit dem Zählen aus dem 0 -Wert und der linken Seite. Der negative Startindexwert wurde in der zweiten Substr () -Funktion verwendet. Der Indexwert beginnt also mit dem Zählen von 1 Wert und der rechten Seite. Die Ausgabe beider Substr () -Funktionen wurde später gedruckt.

#!/usr/bin/perl
#Definieren Sie den String -Wert
$ string = "Willkommen bei LinuxHint";
#Print des Orginalwerts
Druck "Die Original -Zeichenfolge ist: \ n", $ String, "\ n";
#Den Substring mit einem positiven Indexwert auszahlen
$ substring = substr ($ string, 11);
Drucken Sie "den Substring -Wert mit positivem Index: \ n", $ substring, "\ n";
#Den Substring mit dem negativen Indexwert auszahlen
$ substring = substr ($ string, -9);
Drucken Sie "den Substring -Wert unter Verwendung eines negativen Index: \ n", $ substring, "\ n";

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

Beispiel 2: Verwendung der Funktion substr () mit dem ersten optionalen Argument

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion substr () mit dem ersten optionalen Argument anzeigt. Der positive Startindexwert wurde in beiden Substr () -Funktionen hier verwendet. Der Wert positiver Längenwert wurde in der ersten Substr () -Funktion verwendet. Der Längenwert wird also von links gezählt. Der Wert der negativen Länge wurde in der zweiten Substr () -Funktion verwendet. Der Längenwert wird also von rechts gezählt. Der Längenwert beginnt sowohl für positive als auch für negative Werte von 1 zu zählen. Die Ausgabe beider Substr () -Funktionen wurde später gedruckt.

#!/usr/bin/perl
#Definieren Sie den String -Wert
$ string = "Willkommen bei LinuxHint";
#Print des Orginalwerts
Druck "Die Original -Zeichenfolge ist: \ n", $ String, "\ n";
#Die Substring unter Verwendung positiver Index- und Längenwerte
$ substring = substr ($ string, 3, 4);
Drucken Sie "den Substring -Wert mit positivem Index: \ n", $ substring, "\ n";
#Die Substring mit positiven Index- und negativen Längenwerten erhalten
$ substring = substr ($ string, 11, -4);
Drucken Sie "den Substring -Wert unter Verwendung eines negativen Index: \ n", $ substring, "\ n";

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

Beispiel-3: Verwendung der Funktion substr () mit allen optionalen Argumenten

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion substr () mit allen optionalen Argumenten anzeigt. Die Funktion substr () wurde hier dreimal verwendet. In der ersten Substr () -Funktion wird das passende Substring durch die Zeichenfolge „PHP“ ersetzt.In der zweiten Substr () -Funktion wird das passende Substring durch die Zeichenfolge „Skript“ ersetzt.”In der dritten Funktion substr () wird das passende Substring durch die leere Zeichenfolge ersetzt. Die Ausgabe aller Substr () -Funktionen wurde später gedruckt.

#!/usr/bin/perl
#Definieren Sie den String -Wert
$ string = "Perl -Programmierung lernen";
#Print des Orginalwerts
Druck "Die Original -Zeichenfolge ist: \ n", $ String, "\ n";
#Ersetzen Sie das Substring mit positivem Index- und Längenwert
$ ersetzen1 = substr ($ string, 6, 4, "php");
Drucken Sie "die ersetzte Zeichenfolge durch positive Index und Länge: \ n", $ String, "\ n";
#Ersetzen Sie den Substring mit einem negativen Index- und positiven Längenwert
$ ersetzen1 = substr ($ string, -11, 11, "script");
Drucken Sie "die ersetzte Zeichenfolge durch negative Index und positive Länge: \ n", $ String, "\ n";
#Ersetzen Sie den Substring mit einem positiven Index- und negativen Längenwert
$ ersetzen1 = substr ($ String, 0, -10, "");
Druck "Die ersetzte Zeichenfolge unter Verwendung eines positiven Index- und negativen Länge: \ n", $ String, "\ n";

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

Beispiel-4: Wert aus einer Zeichenfolge mit Substr () -Funktion extrahieren

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der den Datumswert und den Zeitwert getrennt von einer Zeichenfolge senkt. Hier wurde die $ DateTime -Variable verwendet, um einen Zeichenfolgenwert zu speichern, der einen bestimmten Datum und Zeitwert enthält. Die erste Substr () -Funktion wurde verwendet, um den Datumswert abzurufen, und die zweite Substr () -Funktion wurde verwendet, um den Zeitwert aus der $ DateTime -Variablen abzurufen. Die Ausgabe aller Substr () -Funktionen wurde später gedruckt.

#!/usr/bin/perl
#Definieren Sie den String -Wert
$ DateTime = "17-06-22 05:30 Uhr";
#Print des Orginalwerts
Druck "Die Original -Zeichenfolge ist: \ n", $ datetime, "\ n";
#Cutieren Sie den Datumswert aus der Zeichenfolge
$ date = substr ($ datetime, 0, 8);
#Print des Datumswerts
Druck "Der Datumswert ist: \ n", $ Datum, "\ n";
#Den Zeitwert aus der Zeichenfolge auszahlen
$ time = substr ($ datetime, 9);
#Abdruck den Zeitwert
Druck "Der Zeitwert ist: \ n", $ time, "\ n";

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

Abschluss

Die Verwendungen der Substr () -Funktion mit verschiedenen Argumentationswerten wurden in diesem Tutorial unter Verwendung mehrerer Beispiele gezeigt. Ich hoffe.