In ấn để xuất và tệp đồng thời

Question

Tôi có một tập lệnh Perl với một số câu lệnh in. Có cách nào để tôi có thể chuyển tất cả các câu lệnh in này đến một tệp cũng như để xuất bản đồng thời mà không sao chép các câu lệnh in không?

Answer 1

Bạn có thể sử dụng File::Tee.

use File::Tee qw(tee); 

tee STDOUT, '>>', 'some_file.out'; 

print "w00p w00p"; 

Nếu File::Tee không có sẵn, nó có thể dễ dàng mô phỏng với một đường ống dẫn:

open my $tee, "|-", "tee some_file.out"; 
print $tee "w00p w00p"; 
close $tee;