perl - 对于 Perl 中的每个循环

Question

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

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

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

有人可以帮助我吗？

Answer 1

Use join instead:

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";