Làm thế nào tôi có thể tạm thời dừng STDOUT trong một chương trình Perl?

Question

Có cách nào dễ dàng để nói perl "bây giờ bỏ qua tất cả mọi thứ được in"?

Tôi phải gọi thủ tục trong mô-đun Perl bên ngoài, nhưng quy trình in nhiều thông tin không cần thiết (tất cả thông qua tiêu chuẩn in).

Tôi biết chọn thể được sử dụng để chuyển hướng nó bằng cách nào đó, nhưng tôi không phải là quá khôn ngoan từ việc đọc perldoc trên đó.

chỉnh sửa: Tôi tìm thấy câu trả lời sớm hơn, nhưng tôi sẽ bổ sung thêm một ví dụ để làm cho nó rõ ràng hơn (nhưng không nhiều Tôi đoán)

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 :: Kịch bản và tài liệu TectoMT :: là những đối ngoại module

Answer 1

câu trả lời của riêng tôi:

use IO::Null; 

print "does print."; 

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

print "does not print."; 

select($oldfh); 

print "does print."; 

Answer 2

open my $saveout, ">&STDOUT"; 
open STDOUT, '>', "/dev/null"; 

(do your other stuff here) 

open STDOUT, ">&", $saveout; 

Answer 3

Nếu bạn chỉ muốn sử dụng các mô-đun trong thư viện chuẩn, File::Spec có chức năng devnull(). Nó trả về một chuỗi đại diện cho thiết bị null ("/dev/null" trên * nix) mà bạn có thể có thể mở bằng open().

Answer 4

Tôi nhận thấy rằng điều này đã được trả lời, nhưng tôi nghĩ rằng nó đáng để biết về một phương pháp thay thế để làm điều này. Đặc biệt là nếu có điều gì là địa ngục-cong trên in để STDOUT ...

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

Các bit quan trọng là local *STDOUT. Nó thay thế số STDOUT bình thường bằng một tập hồ sơ theo lựa chọn của bạn, nhưng chỉ cho phạm vi của khối có chứa local.

Answer 5

Đề cập đến một số câu trả lời ở đây và về các chủ đề khác, tôi đã đưa ra điều này;

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

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

đâu "âm thầm()" mất một functor và chạy nó với stdout chuyển hướng:

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; 
}