perl - Perl の for each ループ

Question

タブで区切られた配列内の各要素を出力したい。ここに私が書いたコードがあります：

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

印刷中に問題が発生しました。余分なタブは 2 行目の先頭から印刷されます。

これで誰かが私を助けることができますか？

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