Perl의 각 루프에 대해

Question

각 요소를 탭으로 구분 된 배열에 인쇄하려고합니다. 여기에 내가 쓴 코드는 다음과 같습니다 인쇄하는 동안

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