如何才能打印並排重複兩次的數組元素？

Question

請，我有以下代碼行來編寫文件的標題，但我想打印數組@order的每個元素並排兩次。例如：$ 1 $ 1 $ 2 $ 2 $ 3 $ 3 ...以這種方式，我會讓我的輸出文件中的每一列具有相同的名稱。

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

我可以做一些簡單的事情嗎？或者我必須在數組上重複循環顯示元素嗎？

謝謝！

Answer 1

你必須循環無論如何，但你可以使用地圖句法優雅：

# map { $_, $_ } @order 


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