Uso della funzione di join perl
Sintassi
La sintassi della funzione di join è menzionata di seguito.
join (string, elenco)
Il primo argomento della funzione join () contiene il carattere o il valore della stringa che verrà utilizzato per combinare i valori dell'elenco. Il secondo argomento della funzione join () contiene l'elenco dei valori della stringa o i valori dell'array che verranno utilizzati per l'adesione. Questa funzione restituisce la stringa combinata dopo aver unito i valori dell'elenco con qualsiasi carattere o stringa o la stringa vuota.
Esempio-1: unisci all'elenco dei valori della stringa
Crea un file Perl con il seguente codice che mostra gli usi della funzione join () per combinare l'elenco dei valori stringa. Nel codice sono state utilizzate tre funzioni di join (). La funzione Prima Join () è stata utilizzata per combinare i valori della stringa con la stringa vuota. La seconda funzione join () è stata utilizzata per combinare i valori della stringa con uno spazio. La terza funzione join () è stata utilizzata per combinare i valori della stringa con un colon (:). L'output di ciascun join () è stata stampata in seguito.
#!/usr/bin/perl
#Join stringhe con stringa vuota
$ COMBIEDSTRING = join ("", "i", "like", "perl");
Stampa "Il valore della stringa combinato è: \ n", $ combinatestring, "\ n";
#Join corde con spazio
$ COMBIEDSTRING = join ("", "i", "like", "perl");
Stampa "Il valore della stringa combinato è: \ n", $ combinatestring, "\ n";
#Join corde con il colon (:)
$ COMBIEDSTRING = join (":", "i", "like", "perl");
Stampa "Il valore della stringa combinato è: \ n", $ combinatestring, "\ n";
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.
Esempio-2: unisciti ai valori dell'array
Crea un file Perl con il seguente codice che mostra gli usi della funzione join () per combinare i valori dell'array. Le quattro funzioni di join () sono state utilizzate nel codice. La prima funzione join () è stata utilizzata per combinare i valori dell'array con lo spazio. La seconda funzione join () è stata utilizzata per combinare i valori dell'array con lo spazio della scheda. La terza funzione join () è stata utilizzata per combinare i valori dell'array con una nuova linea (\ t). La quarta funzione join () è stata utilizzata per combinare i valori dell'array con un valore stringa. L'output di ciascun join () è stata stampata in seguito.
#!/usr/bin/perl
@Fruits = ("Mango", "Banana", "Grape", "Lichi", "Strawberry");
#Join i valori dell'array con spazio
$ COMBIEDSTRING = join ("", @Fruits);
stampare "i valori dell'array combinato con spazio: \ n", $ combinatestring, "\ n";
#Join stringhe con spazio di scheda
$ combinineString = join ("\ t", @fruits);
stampare "i valori dell'array combinato con tab: \ n", $ combinatestring, "\ n";
#Join Strings con la nuova linea
$ COMBINEDString = join ("\ n", @Fruits);
stampare "i valori dell'array combinato con la nuova linea: \ n", $ combinatestring, "\ n";
#Join stringhe con la stringa
$ COMBIEDSTRING = join ("e", @Fruits);
stampare "i valori dell'array combinato con la stringa: \ n", $ combinatestring, "\ n";
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra.
Esempio-3: unisciti ai valori di più variabili
Crea un file Perl con il seguente codice che mostra gli usi della funzione join () per combinare i valori di più variabili. Tre valori di input verranno prelevati dall'utente e archiviati nelle variabili, $ nome, $ e -mail e $ password. La funzione join () è stata utilizzata nel codice per combinare i valori di queste variabili con un colon (:). Successivamente, la funzione split () è stata utilizzata per estrarre i valori della stringa combinata e confrontarli con i valori di e -mail e password particolari. Il messaggio di benvenuto verrà stampato se la condizione "if" restituisce vera; Altrimenti, verrà stampato un messaggio di errore.
#!/usr/bin/perl
Stampa "Inserisci il tuo nome:";
#Take Nome directory dall'utente
$ name =;
chomp ($ name);
Stampa "Inserisci la tua e -mail:";
#Take Nome directory dall'utente
$ email =;
Chomp ($ email);
Stampa "Inserisci la tua password:";
#Take Nome directory dall'utente
$ password =;
chomp ($ password);
#Join stringhe con stringa vuota
$ COMBINEDString = join (":", $ name, $ email, $ password);
Stampa "Il valore della stringa combinato è: \ n", $ combinatestring, "\ n";
#Extract la stringa combinata
@splittedValue = split (":", $ combinatestring);
if ($ splittedValue [1] eq '[email protected] '&& $ splittedValue [2] eq' segreto ')
#Print Messaggio di benvenuto
Stampa "Benvenuto $ splittedValue [0] sul nostro sito.\N";
altro
#Print Messaggio di errore
Stampa "e -mail o password è sbagliato.\N";
Produzione:
Il seguente output verrebbe visualizzato dopo aver eseguito il codice sopra se l'utente fosse fornito l'indirizzo e -mail errato.
Il seguente output verrebbe visualizzato dopo aver eseguito il codice sopra se l'indirizzo e -mail e la password validi fossero forniti dall'utente.
Esempio-4: unisciti al contenuto di più file
Crea un file Perl con il seguente codice che mostra gli usi della funzione join () per combinare il contenuto di più file. Qui sono stati aperti due file esistenti. Successivamente, il contenuto di entrambi i file viene archiviato in due array e la funzione join () viene utilizzata per combinare il contenuto di questi valori di array.
#!/usr/bin/perl
# Imposta il primo nome file
$ filename1 = 'myfile.TXT';
# Apri il file per la lettura
Apri $ file_handler1, "<', $filename1 or die "Unable to open $filename1 file.";
# Memorizza il primo contenuto di file in un array
@file1 = <$file_handler1>;
# Imposta il secondo nome file
$ filename2 = 'temp.TXT';
# Apri il file per la lettura
Apri $ file_handler2, "<', $filename2 or die "Unable to open $filename2 file.";
# Memorizza il secondo contenuto di file in un array
@file2 = <$file_handler2>;
# Combina il contenuto del file utilizzando join ()
Stampa join ("", @file1, @file2);
Produzione:
Verrà visualizzato il seguente output dopo aver eseguito il codice sopra. Qui, le prime tre righe dell'uscita sono il contenuto del il mio file.TXT file e l'ultima riga dell'output è il contenuto del temp.TXT file.
Conclusione
Gli scopi dell'utilizzo della funzione join () in Perl sono stati spiegati in questo tutorial utilizzando più esempi di perl. Spero che questo tutorial aiuti gli utenti perl a utilizzare la funzione join () nel loro codice correttamente.