perl - 有没有办法在 $fh 调用 'print' 时得到通知？

Question

当我做:

print $fh 'text';

我需要一些 &sub被称为。

有没有办法做到这一点？

Answer 1

您可以 tie a filehandle并自定义 print 的行为到该文件句柄或对该文件句柄的任何其他操作。

sub PrintNotifier::TIEHANDLE {
    my ($pkg, $orignalHandle) = @_;
    bless { glob => $orignalHandle }, $pkg;
}
sub PrintNotifier::PRINT {
    my ($self,@msg) = @_;
    ... do whatever you want with @msg here ...
    return print {$self->{glob}} @msg;
}
sub PrintNotifier::CLOSE { return close $_[0]->{glob} }

open my $fh, '>', 'some-file';
tie *$fh, 'PrintNotifier', $fh;
print $fh "something";           # calls  PrintNotifier::PRINT