Her bir yan yana iki kez tekrarlanan bir dizinin elemanlarını nasıl yazdırabilirim?

Question

Lütfen, bir dosyanın üstbilgisini yazmak için aşağıdaki kod satırına sahibim, ancak dizi @ dizisinin her bir öğesini yan yana iki kez yazdırmak istiyorum. Örneğin: $ 1 $ 1 $ 2 $ 2 $ 3 $ 3 ... benim çıkış dosyamın her bir sütununa aynı ada sahip olacak şekilde.

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

Basit bir şey yapabilir miyim veya yazdırmadan önce öğeleri tekrarlamak için dizinin üzerine dönmem gerekiyor mu?

Teşekkürler!

Answer 1

Zaten döngü var, ama sözdizimsel zarafet için haritayı kullanabilirsiniz:

# map { $_, $_ } @order 


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