わいえむねっと

Perl覚え書き。
backticksは出力が完了してから制御を戻すので、

open FILE, '>foo.txt';
print FILE `foo`;
close FILE;

とかすると、制御が戻ってきてから一括出力。
随時出力するには、

open STDOUT, '>foo.txt';
system 'foo';
close STDOUT;

とかして、標準出力をファイルリダイレクトに置き換えてsystemで実行。
標準出力を再使用したい場合は要退避。

open _STDOUT, '>&STDOUT';
open STDOUT, '>foo.txt';
system 'foo';
close STDOUT;
open STDOUT, '>&_STDOUT';
print 'bar';