对于Perl中的每个循环

Question

我想打印用tab分隔的数组中的每个元素。这是我写的代码：

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

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

有人可以帮助我吗？

Answer 1

改为使用join：

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

Answer 2

我认为@array的每个元素末尾都有一个“\ n”。

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