Verwendung der Perl -Join -Funktion

Verwendung der Perl -Join -Funktion
„Der Join () ist eine integrierte Funktion von Perl, mit der ein Stringwert erstellt wird, indem mehrere Zeichenfolgewerte oder die Array-Werte mit einem bestimmten Zeichenfolgenwert kombiniert werden. Der Verbindungs ​​-String -Wert wird zwischen zwei Werten des Arrays hinzugefügt. In diesem Tutorial wurden verschiedene Verwendungen der Funktion Join () gezeigt.”

Syntax
Die Syntax der Join -Funktion wird unten erwähnt.

Join (String, Liste)

Das erste Argument der Funktion join () enthält das Zeichen oder den Stringwert, mit dem die Listwerte kombiniert werden können. Das zweite Argument der Funktion join () enthält die Liste der Stringwerte oder die Array -Werte, die zum Verbinden verwendet werden. Diese Funktion gibt die kombinierte Zeichenfolge zurück, nachdem die Listenwerte mit einem Zeichen oder einer Zeichenfolge oder der leeren Zeichenfolge verboßt werden haben.

Beispiel 1: Schließen Sie die Liste der Zeichenfolgewerte bei

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion Join () zum Kombinieren der Liste der Zeichenfolgewerte anzeigt. Im Code wurden drei Join () -Funktionen verwendet. Die erste join () -Funktion wurde verwendet, um die Stringwerte mit der leeren Zeichenfolge zu kombinieren. Die zweite Join () -Funktion wurde verwendet, um die Stringwerte mit einem Speicherplatz zu kombinieren. Die dritte join () -Funktion wurde verwendet, um die Stringwerte mit einem Dickdarm zu kombinieren (:). Die Ausgabe jeder Join () -Funktion wurde später gedruckt.

#!/usr/bin/perl
#Join Strings mit leerer Saite
$ combinedString = Join ("," I "," Like "," Perl ");
Druck "Der kombinierte String -Wert ist: \ n", $ combinedString, "\ n";
#Join Saiten mit Raum
$ combinedString = Join ("," I "," Like "," Perl ");
Druck "Der kombinierte String -Wert ist: \ n", $ combinedString, "\ n";
#Join Strings mit Colon (:)
$ combinedString = join (":", "i", "wie", "perl");
Druck "Der kombinierte String -Wert ist: \ n", $ combinedString, "\ n";

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

Beispiel-2: Verbinden Sie die Array-Werte

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion join () zum Kombinieren der Array -Werte anzeigt. Die vier Join () -Funktionen wurden im Code verwendet. Die erste Join () -Funktion wurde verwendet, um die Array -Werte mit dem Speicherplatz zu kombinieren. Die zweite Join () -Funktion wurde verwendet, um die Array -Werte mit dem Registerkartenraum zu kombinieren. Die dritte Join () -Funktion wurde verwendet, um die Array -Werte mit einer neuen Linie (\ t) zu kombinieren. Die vierte join () -Funktion wurde verwendet, um die Array -Werte mit einem Zeichenfolgenwert zu kombinieren. Die Ausgabe jeder Join () -Funktion wurde später gedruckt.

#!/usr/bin/perl
@Fruits = ("Mango", "Banane", "Traube", "Lichi", "Strawberry");
#Joinieren Sie die Array -Werte mit Speicherplatz
$ combinedString = join ("", @Fruits);
Druck "Die kombinierten Array -Werte mit Space: \ n", $ combinedString, "\ n";
#Join Strings mit Tabellenraum
$ combinedString = join ("\ t", @Fruits);
Druck "Die kombinierten Array -Werte mit Tab: \ n", $ combinedString, "\ n";
#Join Strings mit der Newline
$ combinedString = join ("\ n", @Fruits);
Druck "Die kombinierten Array -Werte mit der Newline: \ n", $ combinedString, "\ n";
#Join Strings mit der Zeichenfolge
$ combinedString = join ("und", @Fruits);
Druck "Die kombinierten Array -Werte mit der Zeichenfolge: \ n", $ combinedString, "\ n";

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

Beispiel-3: Verbinden Sie die Werte mehrerer Variablen

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion Join () zum Kombinieren der Werte mehrerer Variablen anzeigt. Der Benutzer werden drei Eingabewerte entnommen und in den Variablen, $ Name, $ E -Mail und $ Passwort gespeichert. Die Funktion join () wurde im Code verwendet, um die Werte dieser Variablen mit einem Dickdarm zu kombinieren (:). Als nächstes wurde die Funktion von Split () verwendet, um die Werte der kombinierten Zeichenfolge zu extrahieren und sie mit den jeweiligen E -Mail- und Kennwortwerten zu vergleichen. Die Begrüßungsnachricht wird gedruckt, wenn die Bedingung „If“ wahr zurückgibt. Andernfalls wird eine Fehlermeldung gedruckt.

#!/usr/bin/perl
Drucken Sie "Geben Sie Ihren Namen ein:";
#Take -Verzeichnisname vom Benutzer
$ name =;
chomp ($ name);
Drucken Sie "E -Mail ein:";
#Take -Verzeichnisname vom Benutzer
$ mail =;
chomp ($ mail);
Drucken Sie "Ihr Passwort eingeben:";
#Take -Verzeichnisname vom Benutzer
$ passwort =;
chomp ($ passwort);
#Join Strings mit leerer Saite
$ combinedString = join (":", $ name, $ mail, $ password);
Druck "Der kombinierte String -Wert ist: \ n", $ combinedString, "\ n";
#Extrahieren Sie die kombinierte Zeichenfolge
@SsplittValue = split (":", $ combinedString);
if ($ splittedValue [1] EQ '[email protected] '&& $ splittedValue [2] EQ' Geheimnis ')

#Print Willkommensnachricht
Drucken "Willkommen $ SplittedValue [0] auf unserer Website.\N";

anders

#Druckfehlermeldung
Drucken "E -Mail oder Passwort ist falsch.\N";

Ausgang:
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt, wenn die falsche E -Mail -Adresse vom Benutzer angegeben wurde.

Die folgende Ausgabe wird nach der Ausführung des oben genannten Codes angezeigt, wenn die gültige E -Mail -Adresse und das Passwort vom Benutzer bereitgestellt würden.

Beispiel-4: Schließen Sie den Inhalt mehrerer Dateien bei

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Verwendung der Funktion Join () zum Kombinieren der Inhalte mehrerer Dateien anzeigt. Zwei vorhandene Dateien wurden hier von der Funktion open () geöffnet. Als nächstes wird der Inhalt beider Dateien in zwei Arrays gespeichert, und die Funktion Join () wird verwendet, um den Inhalt dieser Array -Werte zu kombinieren.

#!/usr/bin/perl
# Legen Sie den ersten Dateinamen fest
$ Dateiname1 = 'myfile.txt';
# Öffnen Sie die Datei zum Lesen
Öffnen Sie $ file_handler1, '<', $filename1 or die "Unable to open $filename1 file.";
# Speichern Sie den ersten Dateiinhalt in ein Array
@file1 = <$file_handler1>;
# Setzen Sie den zweiten Dateinamen
$ Dateiname2 = 'Temp.txt';
# Öffnen Sie die Datei zum Lesen
Öffnen Sie $ file_handler2, '<', $filename2 or die "Unable to open $filename2 file.";
# Speichern Sie den zweiten Dateiinhalt in ein Array
@Datei2 = <$file_handler2>;
# Kombinieren Sie den Dateiinhalt mithilfe von Join () -Funktion
drucken join ("", @file1, @file2);

Ausgang:
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt. Hier sind die drei besten Zeilen der Ausgabe der Inhalt des meine Datei.txt Datei und die letzte Zeile der Ausgabe ist der Inhalt des Temperatur.txt Datei.

Abschluss

Die Zwecke der Verwendung der Funktion Joy () in Perl wurden in diesem Tutorial unter Verwendung mehrerer Perl -Beispiele erläutert. Ich hoffe.