Printing both to console and File

[perluser455]

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

[1nickt]

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

For another approach see Log::Any, Log::Any::Adapter, Log::Any::Adapter::Dispatch.

Hope this helps!

[perluser455]

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

[Eily]

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.

[soonix]

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::TeeHandle) would solve your problem.

[Anonymous Monk]

my $tee = Ice::Tea->new( $log_console, \*STDMIC );