如何在Perl程序中暂时禁止STDOUT？

发布时间：2020-12-15 21:58:05 所属栏目：大数据来源：网络整理

导读：有没有简单的方法来告诉perl“现在忽略所有打印的东西”？我必须在外部Perl模块中调用一个过程,但该过程会打印出许多不必要的信息(通过标准打印). 我知道选择可以用来以某种方式重定向它,但我不太明智地阅读它上面的perldoc. 编辑：我很快就找到了答案,但我

有没有简单的方法来告诉perl“现在忽略所有打印的东西”？

我必须在外部Perl模块中调用一个过程,但该过程会打印出许多不必要的信息(通过标准打印).

我知道选择可以用来以某种方式重定向它,但我不太明智地阅读它上面的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是那些外部模块

解决方法

我自己的答案：

use IO::Null;

print "does print.";

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

print "does not print.";

select($oldfh);

print "does print.";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!