Perl | join() Function

join() function in Perl combines the elements of LIST into a single string using the value of VAR to separate each element. It is effectively the opposite of split.

Note that VAR is only placed between pairs of elements in the LIST; it will not be placed either before the first element or after the last element of the string. Supply an empty string rather than undef, to join together strings without a separator.

Syntax: join(VAR, LIST)

Parameters:

• VAR : Separator to be placed between list elements.
• LIST : LIST to be converted into String.

Return: Returns the joined string

Example 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";

Output:

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

Example 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";

Output :

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