如何打印每个并排重复两次的数组元素？

Question

请,我有以下代码行来编写文件的标题,但我想并排打印数组@order的每个元素.例如:$ 1 $ 1 $ 2 $ 2 $ 3 $ 3 ...我的输出文件的每一对列都有相同的名称.

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

我可以做一些简单的事情,或者我必须在打印之前循环遍历数组以重复元素吗？

谢谢!

Answer 1

无论如何你必须循环,但你可以使用map来理解句法优雅:

# map { $_, $_ } @order


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