perl | Función unirse()

La función join() en Perl combina los elementos de LIST en una sola string usando el valor de VAR para separar cada elemento. Es efectivamente lo contrario de split.

Tenga en cuenta que VAR solo se coloca entre pares de elementos en la LISTA; no se colocará ni antes del primer elemento ni después del último elemento de la string. Proporcione una string vacía en lugar de undef, para unir strings sin un separador.

Sintaxis: unirse (VAR, LISTA)

Parámetros:

• VAR: Separador a colocar entre los elementos de la lista.
• LISTA: LISTA que se convertirá en String.

Return: Devuelve la string unida

Ejemplo 1:

#!/usr/bin/perl
  
# Joining string with a separator
$string = join( "-", "Geeks", "for", "Geeks" );
print"Joined String is $string\n";
  
# Joining string without a separator
$string = join( "", "Geeks", "for", "Geeks" );
print"Joined String is $string\n";

Producción:

Joined String is Geeks-for-Geeks
Joined String is GeeksforGeeks

Ejemplo 2:

#!/usr/bin/perl
  
# Joining string with '~' separator
$string = join( "~", "Geeks", "for", "Geeks" );
print"Joined String is $string\n";
  
# Joining string with '***' separator
$string = join( "***", "Geeks", "for", "Geeks" );
print"Joined String is $string\n";

Producción :

Joined String is Geeks~for~Geeks
Joined String is Geeks***for***Geeks