Question

我需要使用一些不幸记录诊断的库消息到STDOUT和STDERR。通过使用tie，我可以重定向这些写入捕获这些的函数。因为我不想要所有我的程序的STDOUT和STDERR输出要被捕获捆绑手柄，我只想为某些包裹做这件事。

我想出了一个确定实际行为的解决方案通过查看caller（）可以在下面看到，但我有这种感觉必须有更好的方法...有更优雅的解决方案吗？

package My::Log::Capture;
use strict;
use warnings;
use 5.010;

sub TIEHANDLE {
    my ($class, $channel, $fh, $packages) = @_;
    bless {
        channel => lc $channel,
        fh => $fh,
        packages => $packages,
    }, $class;
}

sub PRINT {
    my $self = shift;
    my $caller = (caller)[0];
    if ($caller ~~ $self->{packages}) {
        local *STDOUT = *STDOUT;
        local *STDERR = *STDERR;
        given ($self->{channel}) {
            when ('stdout') {
                *STDOUT = $self->{fh};
            }
            when ('stderr') {
                *STDERR = $self->{fh};
            }
        }
        # Capturing/Logging code goes here...
    } else {
        $self->{fh}->print(@_);
    }
}

1;

package main;

use My::Foo;
# [...]
use My::Log::Capture;
open my $stderr, '>&', *STDERR;
tie *STDERR, 'My::Log::Capture', (stderr => $stderr, [qw< My::Foo >]);
# My::Foo's STDERR output will be captured, everyone else's STDERR
# output will just be relayed.

Answer 1

除了修复库之外，我只能想到一个可能更好的解决方案。

您可以将STDOUT和STDERR文件句柄重新打开到您自己的文件句柄中。然后，使用绑定的句柄重新打开STDOUT和STDERR。

例如，以下是STDOUT：

的执行方式

open my $fh, ">&", \*STDOUT or die "cannot reopen STDOUT: $!";
close STDOUT; 

open STDOUT, ">", "/tmp/test.txt"; 

say $fh "foo"; # goes to real STDOUT
say "bar";     # goes to /tmp/test.txt

您可以阅读perldoc -f open了解有关“＆gt;＆amp;”的所有详细信息这样做。

无论如何，您可以使用绑定文件句柄的设置替换该打开调用，而不是“/tmp/test.txt”。

您的代码必须始终使用显式文件句柄来编写或使用select来切换文件句柄：

select $fh;
say "foo"; # goes to real STDOUT

select STDOUT;
say "bar"; # goes to /tmp/test.txt

如何使用tie（）仅针对某些包重定向STDOUT，STDERR？

1 个答案: