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

Answer 2

Почему бы не использовать вилку:

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

Для этого может потребоваться больше проверки, и вы сможете получить больше контроля над тем, сколько параллельных процессов у вас есть с чем-то вроде Parallel :: ForkManager , и я предполагаю, что вы действительно делаете что-то более сложное, чем ' эхо».

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 $_"; 
}