わいえむねっと

うどんもたれ。 Perl覚え書き。
前回までのあらすじ。
標準出力と標準エラー出力の両方が出力される場合、

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

としても、標準出力しか出力されない。
ただし、

open STDOUT, '>foo.txt';
open STDERR, '>bar.txt';
system 'foo';

のように、ファイルが別なら出力される。
この場合、

open STDOUT, '>foo.txt';
open STDERR, '>&STDOUT';
system 'foo';

とすれば、両方とも出力される。
他に、

system 'cmd', '/c', qq{"foo >foo.txt 2>&1"};

プロンプト経由にするとかしても可能。
Linuxであれば、

system 'bash', '-c', qq{"foo >foo.txt 2>&1"};

とか。