perl - 如何在 Perl 程序中暂时抑制 STDOUT？

Question

有什么简单的方法可以告诉 perl“现在忽略打印的所有内容”？

我必须在外部 Perl 模块中调用一个过程，但是该过程会打印很多不必要的信息(全部通过标准打印)。

我知道 select 可以用来以某种方式重定向它，但我在阅读 perldoc 时不太明智。

编辑 :我很快找到了答案，但我会添加一个示例以使其更清楚(但我猜并不多)

use TectoMT::Scenario;
use TectoMT::Document;

sub tagDocuments {
    my @documents = @_;

    my $scenario = TectoMT::Scenario->new({'blocks'=> [ qw(
            SCzechW_to_SCzechM::Sentence_segmentation 
            SCzechW_to_SCzechM::Tokenize  
            SCzechW_to_SCzechM::TagHajic
            SCzechM_to_SCzechN::Czech_named_ent_SVM_recognizer) ]});

    $scenario->apply_on_tmt_documents(@documents);
    return @documents;
}

TectoMT::Scenario 和 TectoMT::Document 是那些外部模块

Answer 1

我自己的回答:

use IO::Null;

print "does print.";

my $null = IO::Null;
my $oldfh = select($null); 

print "does not print.";

select($oldfh);

print "does print.";