请,我有以下代码行来编写文件的标题,但我想并排打印数组@order的每个元素.例如：$1 $1 $2 $2 $3 $3 …我的输出文件的每一对列都有相同的名称.
print(join("\t","Case_ID","State","Ind","DoB",@order) . "\n");
我可以做一些简单的事情,或者我必须在打印之前循环遍历数组以重复元素吗？
谢谢！
解决方法
无论如何你必须循环,但你可以使用map来理解句法优雅：
# map { $_,$_ } @order
print join("\t",map { $_,$_ } @order))
. "\n";