Korzystanie z funkcji połączenia perla
Składnia
Składnia funkcji łączenia jest wspomniana poniżej.
dołącz (ciąg, lista)
Pierwszy argument funkcji łączy () zawiera znak lub wartość ciągu, która zostanie użyta do łączenia wartości listy. Drugi argument funkcji łączy () zawiera listę wartości ciągu lub wartości tablicy, które zostaną użyte do łączenia. Ta funkcja zwraca łączny ciąg po połączeniu wartości listy z dowolnym znakiem lub ciągiem lub pustym ciągiem.
Przykład-1: dołącz do listy wartości ciągu
Utwórz plik PERL z następującym kodem, który pokazuje zastosowania funkcji łączenia () do łączenia listy wartości ciągu. W kodzie użyto trzech funkcji łączenia (). Pierwsza funkcja połączenia () została użyta do łączenia wartości ciągów z pustym ciągiem. Druga funkcja połączenia () została użyta do łączenia wartości ciągów z przestrzenią. Trzecia funkcja połączenia () została użyta do łączenia wartości łańcuchowych z dwukropkiem (:). Dane wyjściowe każdej funkcji łączenia () zostało wydrukowane później.
#!/usr/bin/perl
#Join Strings z pustym sznurkiem
$ COMNINEDString = dołącz („”, „i”, „jak”, „perl”);
Wydrukuj „Połączona wartość ciągu to: \ n”, $ COMNINEDString, „\ n”;
#Joining Strings z przestrzenią
$ COMNINEDString = dołącz („”, „i”, „jak”, „perl”);
Wydrukuj „Połączona wartość ciągu to: \ n”, $ COMNINEDString, „\ n”;
#Join Strings z dwukropkiem (:)
$ COMNINEDString = dołącz („:”, „i”, „jak”, „perl”);
Wydrukuj „Połączona wartość ciągu to: \ n”, $ COMNINEDString, „\ n”;
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-2: dołącz do wartości tablicy
Utwórz plik PERL z następującym kodem, który pokazuje zastosowania funkcji łączenia () do łączenia wartości tablicy. W kodzie używano czterech funkcji łączenia (). Pierwsza funkcja połączenia () została użyta do łączenia wartości tablicy z przestrzenią. Druga funkcja połączenia () została użyta do łączenia wartości tablicy z przestrzenią zakładki. Trzecia funkcja połączenia () została użyta do łączenia wartości tablicy z nową linią (\ t). Funkcja czwartego połączenia () została użyta do łączenia wartości tablicy z wartością ciągu. Dane wyjściowe każdej funkcji łączenia () zostało wydrukowane później.
#!/usr/bin/perl
@Fruits = („Mango”, „Banana”, „Grape”, „Lichi”, „Strawberry”);
#Mi się wartości tablicy z przestrzenią
$ COMNINEDString = dołącz („”, @fruits);
Wydrukuj „Połączone wartości tablicy z przestrzenią: \ n”, $ CombinedString, „\ n”;
#Join Strings z Tab Space
$ COMNINEDString = dołącz („\ t”, @fruits);
Wydrukuj „Połączone wartości tablicy za pomocą tab: \ n”, $ CombinedString, „\ n”;
#Join Strings z nową linią
$ COMNINEDString = dołącz („\ n”, @fruits);
Wydrukuj „Połączone wartości tablicy z nową linią: \ n”, $ CombinedString, „\ n”;
#Join Strings z ciągiem
$ COMNINEDString = dołącz („i”, @fruits);
Wydrukuj „Połączone wartości tablicy z ciągiem: \ n”, $ CombinedString, „\ n”;
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu.
Przykład-3: dołącz do wartości wielu zmiennych
Utwórz plik PERL z następującym kodem, który pokazuje zastosowania funkcji Join () do łączenia wartości wielu zmiennych. Trzy wartości wejściowe zostaną pobrane od użytkownika i przechowywane w zmiennych, $ name, $ e -mail i $ hasło. Funkcja Join () została użyta w kodzie do łączenia wartości tych zmiennych z dwukropkiem (:). Następnie funkcja split () została użyta do wyodrębnienia wartości połączonego ciągu i porównania ich z konkretnymi wartościami e -mail i hasłem. Wiadomość powitalna zostanie wydrukowana, jeśli warunek „jeśli” powróci true; W przeciwnym razie zostanie wydrukowany komunikat o błędzie.
#!/usr/bin/perl
Wydrukuj „Wprowadź swoje imię:”;
#Zrób nazwę katalogu od użytkownika
$ name =;
Chomp ($ nazwa);
Wydrukuj „Wprowadź swój e -mail:”;
#Zrób nazwę katalogu od użytkownika
$ e -mail =;
Chomp ($ e -mail);
Wydrukuj „Wprowadź hasło:”;
#Zrób nazwę katalogu od użytkownika
$ hasło =;
Chomp ($ hasło);
#Join Strings z pustym sznurkiem
$ COMNINEDString = dołącz („:”, $ name, $ e -mail, $ hasło);
Wydrukuj „Połączona wartość ciągu to: \ n”, $ COMNINEDString, „\ n”;
#Extract połączony ciąg
@SPLIDEDVALUE = split („:”, $ COMNINEDString);
if ($ spistedValue [1] eq 'fahmida@przykład.com '&& $ spistedValue [2] eq' secret ')
#PRINT WIĘCEJ WIĘCEJ
wydrukuj „Welcome $ spistedValue [0] na naszej stronie.\N";
w przeciwnym razie
#PRINT Komunikat o błędzie
wydrukuj „E -mail lub hasło jest złe.\N";
Wyjście:
Poniższe dane wyjściowe pojawiłby się po wykonaniu powyższego kodu, jeśli użytkownik podano niewłaściwy adres e -mail.
Poniższe dane wyjściowe pojawiłby się po wykonaniu powyższego kodu, jeśli użytkownik dostarczył prawidłowy adres e -mail i hasło.
Przykład-4: dołącz do zawartości wielu plików
Utwórz plik PERL z następującym kodem, który pokazuje zastosowania funkcji Join () do łączenia zawartości wielu plików. Dwa istniejące pliki zostały otwarte przez funkcję Open () tutaj. Następnie zawartość obu plików jest przechowywana w dwóch tablicach, a funkcja Join () służy do łączenia zawartości tych wartości tablicy.
#!/usr/bin/perl
# Ustaw pierwszą nazwę pliku
$ filename1 = 'myfile.tekst';
# Otwórz plik do odczytu
Otwórz $ file_handler1, '<', $filename1 or die "Unable to open $filename1 file.";
# Przechowuj pierwszą zawartość pliku w tablicy
@file1 = <$file_handler1>;
# Ustaw drugą nazwę pliku
$ filename2 = 'temp.tekst';
# Otwórz plik do odczytu
Otwórz $ file_handler2, '<', $filename2 or die "Unable to open $filename2 file.";
# Przechowuj drugą zawartość pliku w tablicy
@file2 = <$file_handler2>;
# Połącz zawartość pliku za pomocą funkcji Join ()
wydrukuj dołącz („”, @file1, @plik2);
Wyjście:
Następujące dane wyjściowe pojawią się po wykonaniu powyższego kodu. Tutaj trzy najważniejsze linie wyjścia to zawartość mój plik.tekst plik, a ostatni wiersz wyjścia jest treść Temp.tekst plik.
Wniosek
Cele użycia funkcji Join () w PERL zostały wyjaśnione w tym samouczku za pomocą wielu przykładów Perla. Mam nadzieję, że ten samouczek pomoże użytkownikom Perl w poprawnym korzystaniu z funkcji Join () w swoim kodzie.