線程安全的替代File :: Tee？

Question

我想爲一個線程腳本實現一些日誌記錄功能，並且遇到了File::Tee。但是，當試圖在Windows盒子上嘗試ppm模塊時，找不到它（並且根據activestate，在Windows上不支持）。

我真的很喜歡，你可以鎖定文件的訪問，雖然，通過執行類似：

tee STDOUT, {mode => '>>', open => '$ENV{DOM}\\threaded_build.log', lock => 1}; 
tee STDERR, {mode => '>>', open => '$ENV{DOM}\\threaded_debug.log', lock => 1}; 

是否有一個跨平臺的，線程安全的替代方案？

Answer 1

File::Tee需要格外小心處理通過system或未通過perlio的XS代碼運行的外部程序生成的輸出。我認爲這就是它與Windows不兼容的原因。

IO::Tee是更跨平臺的，我不認爲使其線程安全將是很難做到。 The sync code in File::Tee只是看起來像：

    flock($teefh, LOCK_EX) if $target->{lock}; 
        print $teefh $cp; 
        flock($teefh, LOCK_UN) if $target->{lock}; 

你可以通過修改兩個方法實現在IO::Tee同樣的事情：

use Fcntl ':flock'; 

no warnings 'redefine'; 
sub IO::Tee::PRINT 
{ 
    my $self = shift; 
    my $ret = 1; 
    foreach my $fh (@$self) { 
     flock($fh, LOCK_EX); 
     undef $ret unless print $fh @_; 
     flock($fh, LOCK_UN); 
    } 
    return $ret; 
} 
sub IO::Tee::PRINTF 
{ 
    my $self = shift; 
    my $fmt = shift; 
    my $ret = 1; 
    foreach my $fh (@$self) { 
     flock($fh, LOCK_EX); 
     undef $ret unless printf $fh $fmt, @_; 
     flock($fh, LOCK_UN); 
    } 
    return $ret; 
}