Perl： "ディスプレイ"とファイルにも印刷

Question

印刷 "文字列"コードを繰り返さずに、 "表示"と同時にファイルに印刷する方法はありますか？私が何をしたいか

：

if ($ofile) { 
    open (FILE, '>>', "file"); 
    print "Hello" #some code#; #prints on the display and into the file 
} 

の代わり：

if ($ofile) { open (FILE, '>>', "file"); } 
print "Hello"; 
if ($ofile) { print FILE "Hello"; } 

はグーグルで試みたが、私が見つけたすべてが、両方が一緒に特徴のいずれかであったか、ではありません。

編集の質問を追加するには：

次に、新しいT字型に分岐ハンドルを作成し、印刷はデフォルトでそれを使用するように$ティを選択するために、IO :: Tシャツを使用しています。 - Eric Strom

@EricStrom新しいtee'dハンドルを作成するとどういう意味ですか？このLocal::TeeOutputを意味しますか？ search.cpan.org/~mschilli/Log-Log4Log1/3.4/lib/Log/Log4perl.pm

@EricStrom例がありますか？

@EricStrom Local :: TeeOutputは、Strawberry Perlのデフォルトライブラリでは使用できません。既定のライブラリの中に何か別の選択肢がありますか？

Answer 1

これは、ロギングのためであるならば、あなたは画面、ファイル、さらにはデータベースに同じもののログを持つことができますLog::Log4perl

を使用することを検討してください。

これは、画面とファイルの両方に記録する完全な例です。

use strict; 
use Log::Log4perl qw(:easy); 
Log::Log4perl->easy_init("INFO"); 

my $logConfiguration = qq(
log4perl.logger  = INFO, Logfile, Screen 
log4perl.appender.Logfile   = Log::Log4perl::Appender::File 
log4perl.appender.Logfile.filename = C:\\temp\\file.log 
log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout 
log4perl.appender.Logfile.layout.ConversionPattern =%p[%d{MM/dd HH:mm} %3L] %m%n 
log4perl.appender.Screen   = Log::Log4perl::Appender::Screen 
log4perl.appender.Screen.stderr = 0 
log4perl.appender.Screen.layout = Log::Log4perl::Layout::SimpleLayout 
log4perl.appender.Screen.layout.ConversionPattern = %m%n 
); 

Log::Log4perl::init(\$logConfiguration); 

INFO "This line will be logged"; 

ERROR "This error will be logged"; 

LOGDIE "Fatal error will be logged"; 

構成のいずれかINFO、ERRORなどが呼び出されたときにファイル（ログファイル）及びスクリーン（画面）の両方が追加されることを示しています。

FAQは多くの質問タスクのためのサブルーチンをしないのはなぜ

Answer 2

をカバー？

また、Log::Log4perlのような多くのロギングパッケージは、非常に簡単な設定でコンソールとファイルの両方への書き込みをサポートしています。

Answer 3

確かに、IO::TeeをCPANにしてください。 perlのデフォルトのハンドルに変更するには

my $tee = IO::Tee->new(\*STDOUT, \*STDERR, $John, $Tan); 
print $tee "HELLO!\n"; 

：

select $tee; 
print "HELLO!\n"; 

Answer 4

はperlmonksでPrinting to multiple file handles with one requestとIO::MultiHandle - Operate on multiple file handles as oneを超える参照してください。