zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-06 00:34:58 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.592

Browse source
This commit is contained in:
Nick Bebout 2014-05-29 20:56:21 -05:00
parent 428581af1e
commit 459f6a81cb
151 changed files with 10053 additions and 1910 deletions
Download patch file Download diff file Expand all files Collapse all files

25
W/learn/tee_log Executable file
View file

@ -0,0 +1,25 @@
#!/usr/bin/perl
use warnings ;
use strict ;
use IO::Tee;
my $log_filename = "log.txt";
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 );
*STDERR = *$tee{IO};
select $tee;
print "print 01\n" ;
warn "warn 02\n" ;
print "print 03\n" ;
warn "warn 04\n" ;
warn "warn 05\n" ;
print "print 06\n" ;
print "print 07\n" ;
warn "warn 08\n" ;
exit ;