在Perl中,如何在将每个元素括在括号中之后连接数组的元素？

Question

我试图加入Perl数组的元素.

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

会给我的

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

无论如何,我可以很快得到

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

？

Answer 1

另一种方法,使用sprintf.

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

Answer 2

这有两个选择:

#!/usr/bin/perl

use strict;
use warnings;

my @array = 'a' .. 'e';
my $string = join('', map { "[$_]" } @array);
my $string1 = '[' . join('][', @array) . ']';