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 三次并打印，

E A
E B
E C

但它输出

E A B C

我已经尝试了 xargs 分隔符设置的各种操作，但无济于事。有人可以帮忙吗？

Answer 1

尝试 xargs -n1 echo E <文件名.txt

Answer 2

'xargs' 正在做它应该做的事情。为什么要生成一个外部进程来完成 Perl 可以做的事情？相反，关闭您的文件并执行以下操作：

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

Answer 3

为什么不使用 fork：

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

这可以使用更多验证，并且您可以使用 Parallel::ForkManager，我认为您确实在做一些比“echo”更复杂的事情。

Answer 4

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