Printing both to console and File

perluser455 has asked for the wisdom of the Perl Monks concerning the following question:

Hi All, i am writing a perl code to run one of my products and as part of that i wanted the log file to print both STDERR and STDOUT to log and Blackscreen. Below is code am using currently and it prints all the details to Blackscreen but only STDOUT to file , i would like to print even STDERR ,am using strawberry perl. Any suggestions here can be of great help. Code:

my $log_filehandle;

 open( $log_filehandle, '>>', $log_filename ) 
or die("Can't open $log_filename for append: $!");
 my $tee= IO::Tee->new( $log_filehandle, \*STDOUT );
  my $tee2= IO::Tee->new( $log_filehandle, \*STDERR );
 ##*STDERR = *$tee{IO};  --Adding or removing gives same output
 select $tee;

-------my complete program code below-----------
[download]

Comment on Printing both to console and File Download Code

Replies are listed 'Best First'.
Re: Printing both to console and File by 1nickt (Canon) on Apr 17, 2017 at 11:56 UTC
The doc for IO::Tee indicates (unsurprisingly) that you need to pass two filehandles to the constructor, not construct two instances: `use IO::Tee; $tee = IO::Tee->new($handle1, $handle2); print $tee "foo", "bar";` [download] For another approach see Log::Any, Log::Any::Adapter, Log::Any::Adapter::Dispatch. Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l]
Re^2: Printing both to console and File by perluser455 (Initiate) on May 17, 2017 at 10:15 UTC
Thanks for the reply, but Can you Please let me know how to pass stdout/stderr to filehandles when declared as use IO::Tee; $tee = IO::Tee->new($handle1, $handle2);	[reply]
Re^3: Printing both to console and File by Eily (Monsignor) on May 17, 2017 at 14:54 UTC
It so happens that the example that contains the answer to your question is in the example section of IO::Tee's documentation. Edit: wait, you already use the `\*STDOUT` notation in your OP, I must be misunderstanding your question.	[reply] [d/l]
Re: Printing both to console and File by soonix (Chancellor) on Apr 17, 2017 at 12:49 UTC
The problem is that IO::Tee->new gives you a new handle, and your select call only changes the default file handle of print from `STDOUT` to the new handle. It seems to me, that wrapping your code into Capture::Tiny->tee (which internally uses IO::~~Tee~~Handle) would solve your problem.	[reply] [d/l]
Re: Printing both to console and File by Anonymous Monk on Apr 17, 2017 at 16:37 UTC
`my $tee = Ice::Tea->new( $log_console, \*STDMIC );` [download]	[reply] [d/l]