perl - xargsを呼び出すperl:行末区切り文字が機能しない

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 echo E < filename.txt を試してください

Answer 2

フォークを使用しない理由：

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

これにより、さらに検証が使用される可能性があり、Parallel :: ForkManagerのようなものを使用して、並行プロセスの数をより細かく制御できます。実際には、「echo」よりも複雑なことを行っていると思います。

Answer 3

「xargs」は、本来あるべきことを正確に行っています。Perl ができることを行うために外部プロセスを生成するのはなぜですか? 代わりに、ファイルを閉じて次のようにします。

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

Answer 4

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