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

发布时间：2020-12-16 06:27:35 所属栏目：大数据来源：网络整理

导读：请,我有以下代码行来编写文件的标题,但我想并排打印数组@order的每个元素.例如：$1 $1 $2 $2 $3 $3 …我的输出文件的每一对列都有相同的名称. print(join("t","Case_ID","State","Ind","DoB",@order) . "n"); 我可以做一些简单的事情,或者我必须在打印之前

请,我有以下代码行来编写文件的标题,但我想并排打印数组@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";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!