在Perl中的每個循環

Question

我想打印一個數組中的每個元素與標籤分隔。這是我寫的代碼：

print FILEOUT $_,"\t" foreach @data;

我有問題，同時打印。額外的選項卡從第二行開始打印。

有人可以幫我嗎？

Answer 1

使用join代替：

print FILEOUT join("\t", @data); 

Answer 2

我認爲這是一個 「\ n」 在@array的每個元素的結束。

my @data = ("1\n", "2\n", "3\n"); 
print join "\t", map { chomp; $_; } @data; 
print "\n";