Uso de la función de unión de Perl
Sintaxis
La sintaxis de la función de unión se menciona a continuación.
unirse (cadena, lista)
El primer argumento de la función Join () contiene el carácter o el valor de cadena que se utilizará para combinar los valores de la lista. El segundo argumento de la función Join () contiene la lista de valores de cadena o los valores de matriz que se utilizarán para unirse. Esta función devuelve la cadena combinada después de unir los valores de la lista con cualquier carácter o cadena o la cadena vacía.
Ejemplo-1: une la lista de valores de cadena
Cree un archivo Perl con el siguiente código que muestra los usos de la función Join () para combinar la lista de valores de cadena. Se han utilizado tres funciones unirse () en el código. La primera función de unión () se ha utilizado para combinar los valores de la cadena con la cadena vacía. La segunda función de unión () se ha utilizado para combinar los valores de cadena con un espacio. La tercera función de unión () se ha utilizado para combinar los valores de cadena con un colon (:). La salida de cada función de unión () se ha impreso más tarde.
#!/usr/bin/perl
#Jugar cadenas con cadena vacía
$ combinedString = Join ("", "i", "me gusta", "perl");
imprimir "El valor de cadena combinada es: \ n", $ combinedstring, "\ n";
#Juego de cuerdas con espacio
$ combinedString = Join ("", "i", "me gusta", "perl");
imprimir "El valor de cadena combinada es: \ n", $ combinedstring, "\ n";
#JOIN LA CORZES CON COLON (:)
$ combinedString = Join (":", "i", "me gusta", "perl");
imprimir "El valor de cadena combinada es: \ n", $ combinedstring, "\ n";
Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-2: une los valores de la matriz
Cree un archivo Perl con el siguiente código que muestra los usos de la función Join () para combinar los valores de la matriz. Las cuatro funciones unirse () se han utilizado en el código. La primera función de unión () se ha utilizado para combinar los valores de la matriz con el espacio. La segunda función de unión () se ha utilizado para combinar los valores de la matriz con el espacio de pestaña. La tercera función de unión () se ha utilizado para combinar los valores de la matriz con una nueva línea (\ t). La cuarta función de unión () se ha utilizado para combinar los valores de la matriz con un valor de cadena. La salida de cada función de unión () se ha impreso más tarde.
#!/usr/bin/perl
@fruits = ("mango", "plátano", "uva", "lichi", "fresa");
#Join los valores de la matriz con espacio
$ combinedString = Join ("", @fruits);
imprima "los valores de matriz combinados con espacio: \ n", $ combinedstring, "\ n";
#Jugar cadenas con espacio de pestaña
$ combinedString = Join ("\ t", @fruits);
imprima "los valores de matriz combinados con pestaña: \ n", $ combinedstring, "\ n";
#Jugar cuerdas con la nueva línea
$ combinedString = Join ("\ n", @fruits);
imprima "los valores de matriz combinados con la nueva línea: \ n", $ combinedstring, "\ n";
#JOIN CORTES CON LA CADRA
$ combinedString = Join ("y", @fruits);
imprima "los valores de matriz combinados con la cadena: \ n", $ combinedstring, "\ n";
Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-3: une los valores de múltiples variables
Cree un archivo Perl con el siguiente código que muestra los usos de la función Join () para combinar los valores de múltiples variables. Se tomarán tres valores de entrada del usuario y se almacenarán en las variables, $ nombre, $ correo electrónico y $ contraseña. La función Join () se ha utilizado en el código para combinar los valores de estas variables con un colon (:). A continuación, se usó la función Split () para extraer los valores de la cadena combinada y compararlos con los valores particulares de correo electrónico y contraseña. El mensaje de bienvenida se imprimirá si la condición "si" devuelve verdadera; de lo contrario, se imprimirá un mensaje de error.
#!/usr/bin/perl
Imprima "Ingrese su nombre:";
#Nombre del directorio del usuario del usuario
$ name =;
Chomp ($ nombre);
Imprima "Ingrese su correo electrónico:";
#Nombre del directorio del usuario del usuario
$ correo electrónico =;
Chomp ($ correo electrónico);
Imprima "Ingrese su contraseña:";
#Nombre del directorio del usuario del usuario
$ contraseña =;
Chomp ($ contraseña);
#Jugar cadenas con cadena vacía
$ combinedString = Join (":", $ nombre, $ correo electrónico, $ contraseña);
imprimir "El valor de cadena combinada es: \ n", $ combinedstring, "\ n";
#Extrar la cadena combinada
@SplitTeTValue = Split (":", $ combinedString);
if ($ SplitedValue [1] eq '[email protected] '&& $ SplitedValue [2] Eq' Secret ')
#Mensaje de bienvenida
Imprimir "Bienvenido $ SplitedValue [0] a nuestro sitio.\norte";
demás
#Mensaje de error de huella
Imprimir "El correo electrónico o la contraseña están mal.\norte";
Producción:
La siguiente salida aparecería después de ejecutar el código anterior si el usuario proporcionara la dirección de correo electrónico incorrecta.
La siguiente salida aparecería después de ejecutar el código anterior si el usuario proporcionara la dirección de correo electrónico válida y la contraseña.
Ejemplo-4: une el contenido de múltiples archivos
Cree un archivo Perl con el siguiente código que muestra los usos de la función Join () para combinar el contenido de múltiples archivos. Dos archivos existentes han sido abiertos por la función Open () aquí. A continuación, el contenido de ambos archivos se almacena en dos matrices, y la función Join () se usa para combinar el contenido de estos valores de matriz.
#!/usr/bin/perl
# Establecer el primer nombre de archivo
$ filename1 = 'myfile.TXT';
# Abra el archivo para leer
Abra $ file_handler1, '<', $filename1 or die "Unable to open $filename1 file.";
# Guarde el primer contenido del archivo en una matriz
@file1 = <$file_handler1>;
# Establecer el segundo nombre de archivo
$ filename2 = 'temp.TXT';
# Abra el archivo para leer
Abra $ file_handler2, '<', $filename2 or die "Unable to open $filename2 file.";
# Guarde el segundo contenido del archivo en una matriz
@file2 = <$file_handler2>;
# Combinar el contenido del archivo usando la función Join ()
imprimir Join ("", @file1, @file2);
Producción:
La siguiente salida aparecerá después de ejecutar el código anterior. Aquí, las tres líneas principales de la salida son el contenido del mi archivo.TXT archivo, y la última línea de la salida es el contenido del temperatura.TXT archivo.
Conclusión
Los propósitos de usar la función Join () en Perl se han explicado en este tutorial mediante el uso de múltiples ejemplos de Perl. Espero que este tutorial ayude a los usuarios de Perl a usar la función Join () en su código correctamente.