在Perl中使用join时附加前缀

Question

我有一个字符串数组,我想使用连接函数.但是,我想为每个字符串添加相同的字符串.我可以在一行中执行此操作,而不是首先迭代数组并在使用join之前更改每个值吗？

实际上这有点棘手.前缀不是连接分隔符的一部分.这意味着如果在(1,2,3,4,5)数组上使用了类似"num-"的前缀,则需要得到以下结果:num-1,num-2,num-3,num-4 ,NUM-5

Answer 1

这段代码:

my @tmp = qw(1 2 3 4 5);
my $prefix = 'num-';
print join "\n", map { $prefix . $_ } @tmp;

得到:

num-1
num-2
num-3
num-4
num-5