История изменений

Исправление unclechu, 26.08.20 05:35 (текущая версия) :

Хотя тебе тут не пайпы нужны. Можешь написать что-то такое:

my \file = 'file'.IO.open: :a;
my \p = run qw<printf %s\n foo bar baz>, :out;
loop { $_ = p.out.get; last if p.out.eof; file.say: $_ }
p.out.close;
file.close;

Или так:

my \file = 'file'.IO.open: :a;
my \p = run qw<printf %s\n foo bar baz>, :out;

given p.out {
	loop { my \x = .get; last if .eof; file.say: x }
	.close;
	file.close;
}

Исходная версия unclechu, 26.08.20 05:31:

Хотя тебе тут не пайпы нужны. Можешь написать что-то такое:

my \file = 'file'.IO.open: :a;
my \p = run qw<printf %s\n foo bar baz>, :out;
loop { $_ = p.out.get; last if p.out.eof; file.say: $_ }
file.close;