In Perl, how can I join the elements of an array after including each element in brackets?

Question

I tried to combine the elements of a Perl array.

@array=('a','b','c','d','e'); $string=join(']',@array); 

will give to me

 $string="a]b]c]d]e"; 

Anyway, I can quickly get

 $string="[a][b][c][d][e]"; 

?

Answer 1

Another way to do this is using sprintf .

 my $str = sprintf '[%s]' x @array, @array; 

Answer 2

Here are two options:

 #!/usr/bin/perl use strict; use warnings; my @array = 'a' .. 'e'; my $string = join('', map { "[$_]" } @array); my $string1 = '[' . join('][', @array) . ']'; 

Answer 3

 #!/usr/bin/perl use strict; use warnings; local $" = ''; my $x = qq|@{[ map "[$_]", qw(abcde) ]}|; 

You can also generalize a little:

 #!/usr/bin/perl use strict; use warnings; my @array = 'a' .. 'e'; print decorate_join(make_decorator('[', ']'), \@array), "\n"; sub decorate_join { my ($decorator, $array) = @_; return join '' => map $decorator->($_), @$array; } sub make_decorator { my ($left, $right) = @_; return sub { sprintf "%s%s%s", $left, $_[0], $right }; } 

Answer 4

May be:

 { local $" = "]["; my @array = qw/abcde/; print "[@array]"; } 

Although you should probably just:

 print "[" . join("][", @array) . "]"; 

Happy coding :-)