Mega Code Archive

 

Categories / Perl / String

 

Join variables

#!/usr/bin/perl use warnings; sub wrapjoin ($$$@) {     my ($join, $left, $right, @strings) = @_;     foreach (@strings) {         $_ = $left. $_. $right;     }     return join $join, @strings; } print wrapjoin("\n", "[","]", "One", "Two", "Three");