Agregar un prefijo al usar join en Perl

Question

Tengo una matriz de cadenas en las que me gustaría utilizar la función de unión. Sin embargo, me gustaría prefijar cada cadena con la misma cadena. ¿Puedo hacer esto en una línea en lugar de iterar a través de la matriz primero y cambiar cada valor antes de usar join?

En realidad es un poco más complicado. El prefijo no es parte del separador de unión. Es decir, si utilizó un prefijo como "num-" en una matriz de (1,2,3,4,5), querrá obtener este resultado: num-1, num-2, num-3, num-4 , núm-5

Answer 1

este código:

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

da:

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

Answer 2

Simplemente haga la parte prefijo de la unión:

my @array = qw(a b c d); 
my $sep = ","; 
my $prefix = "PREFIX-"; 
my $str = $prefix . join("$sep$prefix", @array); 

también puede utilizar el mapa para hacer la fijación previa, si lo prefiere:

my $str = join($sep, map "$prefix$_", @array);