8

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はそれらの外部モジュールです

4

5 に答える 5

13

私自身の答え：

use IO::Null;

print "does print.";

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

print "does not print.";

select($oldfh);

print "does print.";
于 2009-09-04T00:29:59.807 に答える
8

これは回答済みだと思いますが、これを行う別の方法について知っておく価値があると思います。特に何かが印刷に夢中になっている場合STDOUT...</p> 

# Store anything written to STDOUT in a string.
my $str;
open my $fh, '>', \$str;
{
  local *STDOUT = $fh;
  code_that_prints_to_stdout();
}

キービットはlocal *STDOUT. 法線を選択したファイルハンドルに置き換えますが、ローカルSTDOUTを含むブロックのスコープのみです。

于 2009-09-04T09:55:44.187 に答える
7

ここと他のスレッドでいくつかの回答を参照して、私はこれを思いつきました。

use strict;
use warnings;
use File::Spec;

sub my_functor { system("some_noisy_command.exe", "--option1", "--option2"); }
silently(\&my_functor);

"silently()" はファンクターを取り、stdout をリダイレクトして実行します。

sub silently($) {
    #Turn off STDOUT
    open my $saveout, ">&STDOUT";
    open STDOUT, '>', File::Spec->devnull();

    #Run passed function
    my $func = $_[0];
    $func->();

    #Restore STDOUT
    open STDOUT, ">&", $saveout;
}
于 2013-03-28T16:33:30.490 に答える
2 
open my $saveout, ">&STDOUT";
open STDOUT, '>', "/dev/null";

(do your other stuff here)

open STDOUT, ">&", $saveout;
于 2009-09-04T00:19:26.197 に答える
1

標準ライブラリのモジュールだけを使いたい場合File::Specは、devnull()機能があります。"/dev/null"で開くことができると思われるnull デバイス (*nix 上) を表す文字列を返しますopen()。

于 2009-09-04T00:38:46.040 に答える