Bruk av Perl Join -funksjon
Syntaks
Syntaksen til sammenføyningsfunksjonen er nevnt nedenfor.
Bli med (streng, liste)
Det første argumentet for Før () -funksjonen inneholder tegnet eller strengverdien som vil bli brukt til å kombinere listeverdiene. Det andre argumentet for Join () -funksjonen inneholder listen over strengverdier eller matriseverdiene som skal brukes til å bli med. Denne funksjonen returnerer den kombinerte strengen etter å ha sammen med listeverdiene med et hvilket som helst tegn eller streng eller den tomme strengen.
Eksempel-1: Bli med i listen over strengverdier
Opprett en Perl -fil med følgende kode som viser bruken av join () -funksjonen for å kombinere listen over strengverdier. Tre sammenføyningsfunksjoner har blitt brukt i koden. Den første sammenføyningsfunksjonen har blitt brukt til å kombinere strengverdiene med den tomme strengen. Den andre Join () -funksjonen har blitt brukt til å kombinere strengverdiene med et rom. Den tredje Join () -funksjonen har blitt brukt til å kombinere strengverdiene med en tykktarm (:). Utgangen til hver sammenføyningsfunksjon er skrevet ut senere.
#!/usr/bin/perl
#Join strenger med tom streng
$ combinedString = join ("", "i", "like", "perl");
Skriv ut "den kombinerte strengverdien er: \ n", $ combinedString, "\ n";
#Join strenger med plass
$ combinedString = join ("", "i", "like", "perl");
Skriv ut "den kombinerte strengverdien er: \ n", $ combinedString, "\ n";
#Join strenger med tykktarm (:)
$ combinedString = join (":", "i", "like", "perl");
Skriv ut "den kombinerte strengverdien er: \ n", $ combinedString, "\ n";
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor.
Eksempel-2: Bli med i matriseverdiene
Opprett en Perl -fil med følgende kode som viser bruken av join () -funksjonen for å kombinere arrayverdiene. De fire sammenføyningsfunksjonene har blitt brukt i koden. Den første sammenføyningsfunksjonen har blitt brukt til å kombinere arrayverdiene med plassen. Den andre Join () -funksjonen har blitt brukt til å kombinere arrayverdiene med fanen Space. Den tredje Join () -funksjonen har blitt brukt til å kombinere arrayverdiene med en Newline (\ T). Fjerde Join () -funksjonen har blitt brukt til å kombinere arrayverdiene med en strengverdi. Utgangen til hver sammenføyningsfunksjon er skrevet ut senere.
#!/usr/bin/perl
@Fruits = ("Mango", "Banana", "Grape", "Lichi", "Strawberry");
#Join matriseverdiene med plass
$ combinedString = join ("", @fruits);
Skriv ut "de kombinerte arrayverdiene med rom: \ n", $ combinedString, "\ n";
#Join Strings with Tab Space
$ combinedString = join ("\ t", @fruits);
Skriv ut "de kombinerte arrayverdiene med fane: \ n", $ combinedString, "\ n";
#Join strenger med Newline
$ combinedString = join ("\ n", @fruits);
Skriv ut "de kombinerte arrayverdiene med Newline: \ n", $ combinedString, "\ n";
#Join strenger med strengen
$ combinedString = join ("og", @fruits);
Skriv ut "de kombinerte arrayverdiene med strengen: \ n", $ combinedString, "\ n";
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor.
Eksempel-3: Bli med på verdiene til flere variabler
Opprett en Perl -fil med følgende kode som viser bruken av join () -funksjonen for å kombinere verdiene til flere variabler. Tre inngangsverdier vil bli hentet fra brukeren og lagres i variablene, $ name, $ e -post og $ passord. Join () -funksjonen har blitt brukt i koden for å kombinere verdiene til disse variablene med en tykktarm (:). Deretter ble split () -funksjonen brukt til å trekke ut verdiene til den kombinerte strengen og sammenligne dem med den aktuelle e -post- og passordverdiene. Velkomstmeldingen vil bli skrevet ut hvis "hvis" -tilstanden returnerer sann; Ellers vil en feilmelding bli skrevet ut.
#!/usr/bin/perl
Skriv ut "Skriv inn navnet ditt:";
#Takedatalognavn fra brukeren
$ name =;
chomp ($ navn);
Skriv ut "Skriv inn e -posten din:";
#Takedatalognavn fra brukeren
$ e -post =;
chomp ($ e -post);
Skriv ut "Skriv inn passordet ditt:";
#Takedatalognavn fra brukeren
$ passord =;
chomp ($ passord);
#Join strenger med tom streng
$ combinedString = join (":", $ name, $ e -post, $ passord);
Skriv ut "den kombinerte strengverdien er: \ n", $ combinedString, "\ n";
#Ekstrakt den kombinerte strengen
@SplittedValue = Split (":", $ CombinedString);
if ($ splittedvalue [1] eq '[email protected] '&& $ splittetValue [2] Eq' Secret ')
#Print velkomstmelding
Skriv ut "Velkommen $ SplittedValue [0] til nettstedet vårt.\ n ";
ellers
#Print feilmelding
Skriv ut "E -post eller passord er feil.\ n ";
Produksjon:
Følgende utdata vil vises etter å ha utført koden ovenfor hvis feil e -postadresse ble oppgitt av brukeren.
Følgende utdata vil vises etter å ha utført ovennevnte kode hvis den gyldige e -postadressen og passordet ble gitt av brukeren.
Eksempel-4: Bli med på innholdet i flere filer
Opprett en Perl -fil med følgende kode som viser bruken av join () -funksjonen for å kombinere innholdet i flere filer. To eksisterende filer er åpnet av Open () -funksjonen her. Deretter lagres innholdet i begge filene i to matriser, og Funce () -funksjonen brukes til å kombinere innholdet i disse arrayverdiene.
#!/usr/bin/perl
# Angi det første filnavnet
$ filnavn1 = 'myfile.tekst';
# Åpne filen for lesing
Åpne $ file_handler1, '<', $filename1 or die "Unable to open $filename1 file.";
# Lagre det første filinnholdet i en matrise
@fil1 = <$file_handler1>;
# Angi det andre filnavnet
$ fileName2 = 'Temp.tekst';
# Åpne filen for lesing
Åpne $ file_handler2, '<', $filename2 or die "Unable to open $filename2 file.";
# Lagre det andre filinnholdet i en matrise
@fil2 = <$file_handler2>;
# Kombiner filinnholdet ved hjelp av join () -funksjonen
skriv inn join ("", @file1, @file2);
Produksjon:
Følgende utgang vises etter å ha utført koden ovenfor. Her er de tre øverste linjene i utdataene innholdet i myfile.tekst fil, og den siste linjen i utdataene er innholdet i temp.tekst fil.
Konklusjon
Formålene med å bruke Join () -funksjonen i Perl er blitt forklart i denne opplæringen ved å bruke flere Perl -eksempler. Jeg håper denne opplæringen vil hjelpe Perl -brukerne til å bruke Join () -funksjonen i koden sin riktig.