String Perl

  1. Home
  2. Perl
  3. String
  4. 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");