有没有简单的方法来告诉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.";
原文地址:https://www.jb51.cc/Perl/171760.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。