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

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";