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.
Perl
Output:
Perl
Output :
Syntax: join(VAR, LIST) Parameters:Example 1:Return: Returns the joined string
- VAR : Separator to be placed between list elements.
- LIST : LIST to be converted into String.
#!/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";
Joined String is Geeks-for-Geeks Joined String is GeeksforGeeksExample 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";
Joined String is Geeks~for~Geeks Joined String is Geeks***for***Geeks