¿Cómo puedo imprimir los elementos de una matriz repetidos dos veces uno al lado del otro?

Question

Por favor, tengo la siguiente línea de código para escribir el encabezado de un archivo, pero me gustaría imprimir cada elemento de la matriz @ orden dos veces de lado a lado. Por ejemplo: $ 1 $ 1 $ 2 $ 2 $ 3 $ 3 ... de forma que tendría cada par de columnas de mi archivo de salida con el mismo nombre.

print(join("\t", "Case_ID", "State", "Ind", "DoB", @order) . "\n"); 

¿Puedo hacer algo simple o tengo que recorrer la matriz para repetir los elementos antes de imprimir?

Gracias!

Answer 1

Tienes que bucle de todos modos, pero se puede usar un mapa para la elegancia sintáctica:

# map { $_, $_ } @order 


print join("\t", "Case_ID", "State", "Ind", "DoB", map { $_, $_ } @order)) 
     . "\n";