プリントをSTDERRにリダイレクトして、Log :: Dispatch？

Question

Log :: Dispatchを使用して、1つ以上の出力へのメッセージングを処理しています。あるケースでは、ファイルにログするデーモンをセットアップしましたが、第三者のモジュールがSTDERRに書き込みを行った場合、ログには表示されません。 STDERRに書かれたものをLog :: Dispatchにリダイレクトさせることができるようにしたいと思います。これは可能ですか？

Answer 1

tieあなたが望むことは何でもできます。 perltieを参照してください：

{ 
    package StderrToLogDispatch; 
    sub TIEHANDLE { 
     my ($pkg) = @_; 
     return bless {}, $pkg; 
    } 
    sub PRINT { 
     my @msg = @_; 
     chomp $msg[-1]; 
     # I don't use Log::Dispatch, so don't know if this is even close 
     Log::Dispatch->logToFile(@msg); 
    } 
} 

tie *STDERR, 'StderrToLogDispatch'; 
print STDERR 'foo'; # invokes StderrToLogDispatch->PRINT