perl - 在 Perl 中使用 join 时附加前缀

Question

我有一个字符串数组，我想在其上使用 join 函数。但是，我想用相同的字符串作为每个字符串的前缀。我可以在一行中执行此操作，而不是先遍历数组并在使用 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