perl 호출 xargs : 줄 끝 구분 기호가 작동하지 않음

Question

다음 코드 (Perl/Cygwin)에 문제가 있습니다.

#!/usr/bin/perl 
open FILE, ">", "filename.txt" or die $!; 
print FILE "A\n"; 
print FILE "B\n"; 
print FILE "C\n"; 
close (FILE); 
system("xargs echo E < filename.txt"); 

echo 3 번 호출하여

E A 
E B 
E C 

를 출력하려고합니다. 대신

E A B C 

xargs 구분 기호 설정을 사용하여 여러 가지를 시도해 보았습니다. 누구든지 도와 줄 수 있습니까?

Answer 1

시도 xargs를 -n1 에코 E < 파일 이름 .txt

Answer 2

'xargs를이'무엇을해야 정확하게하고있다. Perl이 할 수있는 일을 수행하기 위해 외부 프로세스를 생성하는 이유는 무엇입니까? 대신, 파일을 닫고 수행

open FILE, '<', 'filename.txt' or die $!; 
while (<FILE>) { 
    print "E $_"; 
} 

Answer 3

open my $file, '<', 'filename.txt' or die $!; 
while (<$file>){ 
    print "E $_"; 
} 

Answer 4

포크를 사용하지 이유 :

my @arr = qw(A B C); 
for my $c (@arr) { 
    fork and next; 
    exec(echo => $c); 
} 

이 좀 더 검증을 사용할 수 있습니다, 당신은 얼마나 많은 동시 프로세스 당신이보다 효율적으로 제어를 얻을 수 있습니다 Parallel::ForkManager과 같은 것으로, 나는 당신이 정말로 '에코'보다 더 복잡한 것을하고 있다고 가정합니다.