对于Perl中的每个循环

Question

我想打印与tab分隔的数组中的每个元素.这是我写的代码:

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

我在打印时遇到问题.额外选项卡从第二行的开头打印.

有人可以帮助我吗？

Answer 1

改为使用连接:

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