Join variables : join « String « Perl

1. Perl
2. String
3. join

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

   
    
    
    
  

Related examples in the same category