Uso da função de junção perl
Sintaxe
A sintaxe da função de junção é mencionada abaixo.
Join (String, List)
O primeiro argumento da função junção () contém o caractere ou o valor da string que será usado para combinar os valores da lista. O segundo argumento da função junção () contém a lista de valores de string ou os valores da matriz que serão usados para ingressar. Esta função retorna a string combinada após ingressar nos valores da lista com qualquer caractere ou string ou a string vazia.
Exemplo 1: junte-se à lista de valores de string
Crie um arquivo Perl com o seguinte código que mostra os usos da função junção () para combinar a lista de valores de string. Três funções de junção () foram usadas no código. A primeira função de junção () foi usada para combinar os valores da string com a string vazia. A segunda função de junção () foi usada para combinar os valores de string com um espaço. A terceira função de junção () foi usada para combinar os valores de string com um cólon (:). A saída de cada função de junção () foi impressa posteriormente.
#!/usr/bin/perl
#Join Strings com corda vazia
$ combinadostring = junção ("", "i", "como", "perl");
Imprima "O valor combinado da string é: \ n", $ combinadostring, "\ n";
#Join Strings com espaço
$ combinadostring = junção ("", "i", "como", "perl");
Imprima "O valor combinado da string é: \ n", $ combinadostring, "\ n";
#Join Strings com Colon (:)
$ combinadostring = junção (":", "i", "como", "perl");
Imprima "O valor combinado da string é: \ n", $ combinadostring, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo 2: junte os valores da matriz
Crie um arquivo Perl com o seguinte código que mostra os usos da função junção () para combinar os valores da matriz. As quatro funções de junção () foram usadas no código. A primeira função de junção () foi usada para combinar os valores da matriz com o espaço. A segunda função de junção () foi usada para combinar os valores da matriz com o espaço da guia. A terceira função de junção () foi usada para combinar os valores da matriz com uma nova linha (\ t). A quarta função de junção () foi usada para combinar os valores da matriz com um valor de string. A saída de cada função de junção () foi impressa posteriormente.
#!/usr/bin/perl
@fruits = ("manga", "banana", "uva", "lichi", "morango");
#Até os valores da matriz com espaço
$ combinadostring = junção ("", @Fruits);
Imprima "Os valores combinados da matriz com espaço: \ n", $ combinados, "\ n";
#Join Strings With Tab Space
$ combinadostring = junção ("\ t", @fruits);
Imprima "Os valores combinados da matriz com TAB: \ n", $ CombinedString, "\ n";
#Join Strings com a nova linha
$ combinadostring = junção ("\ n", @Fruits);
Imprima "Os valores combinados da matriz com a nova linha: \ n", $ combinados, "\ n";
#Join Strings com a corda
$ combinadostring = junção ("e", @Fruits);
Imprima "Os valores combinados da matriz com a string: \ n", $ CombinedString, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo 3: junte os valores de várias variáveis
Crie um arquivo PERL com o seguinte código que mostra os usos da função junção () para combinar os valores de várias variáveis. Três valores de entrada serão obtidos do usuário e armazenados nas variáveis, $ nome, $ email e $ senha. A função junção () foi usada no código para combinar os valores dessas variáveis com um cólon (:). Em seguida, a função Split () foi usada para extrair os valores da string combinada e compará -los com os valores específicos de email e senha. A mensagem de boas -vindas será impressa se a condição "se" retornar true; Caso contrário, uma mensagem de erro será impressa.
#!/usr/bin/perl
Imprima "Digite seu nome:";
#Nome do diretório da Take do usuário
$ name =;
chomp ($ nome);
Imprima "Digite seu e -mail:";
#Nome do diretório da Take do usuário
$ email =;
chomp ($ email);
Imprima "Digite sua senha:";
#Nome do diretório da Take do usuário
$ senha =;
chomp ($ senha);
#Join Strings com corda vazia
$ combinadostring = junção (":", $ nome, $ email, $ senha);
Imprima "O valor combinado da string é: \ n", $ combinadostring, "\ n";
#Extracione a corda combinada
@splittValue = split (":", $ CombinedString);
if ($ dividido.com '&& $ dividido [2] eq' secret ')
#Print Welcome Message
Imprima "Welcome $ SplittsValue [0] em nosso site.\ n ";
outro
#Mensagem de erro da impressão
Imprimir "Email ou senha está errada.\ n ";
Saída:
A saída a seguir apareceria após a execução do código acima se o endereço de email errado fosse fornecido pelo usuário.
A saída a seguir apareceria após a execução do código acima se o endereço de email e a senha válidos fossem fornecidos pelo usuário.
Exemplo-4: participe do conteúdo de vários arquivos
Crie um arquivo PERL com o seguinte código que mostra os usos da função junção () para combinar o conteúdo de vários arquivos. Dois arquivos existentes foram abertos pela função Open (). Em seguida, o conteúdo de ambos os arquivos é armazenado em duas matrizes, e a função junção () é usada para combinar o conteúdo desses valores de matriz.
#!/usr/bin/perl
# Defina o primeiro nome do arquivo
$ filename1 = 'myfile.TXT';
# Abra o arquivo para leitura
Abra $ file_handler1, '<', $filename1 or die "Unable to open $filename1 file.";
# Armazene o primeiro conteúdo de arquivo em uma matriz
@file1 = <$file_handler1>;
# Defina o segundo nome do arquivo
$ filename2 = 'temp.TXT';
# Abra o arquivo para leitura
Abra $ file_handler2, '<', $filename2 or die "Unable to open $filename2 file.";
# Armazene o segundo conteúdo do arquivo em uma matriz
@file2 = <$file_handler2>;
# Combine o conteúdo do arquivo usando a função junção ()
imprimir junção ("", @file1, @file2);
Saída:
A saída a seguir aparecerá após a execução do código acima. Aqui, as três principais linhas da saída são o conteúdo do meu arquivo.TXT arquivo e a última linha da saída é o conteúdo do Temp.TXT arquivo.
Conclusão
Os propósitos de usar a função junção () em Perl foram explicados neste tutorial usando vários exemplos Perl. Espero que este tutorial ajude os usuários do PERL a usar a função de junção () em seu código corretamente.