PerlIOアーキテクチャを使ったアイデアをいくつか思いついたので具現化してみた。 http://search.cpan.org/dist/PerlIO-Util/ use PerlIO::Util; # push_layer()のため *STDERR->push_layer(tee => '>>foo.log'); *STDERR->push_layer(tee => \$logs); とか …