Re^2: IO::Tee and write / format

wow, I see it now. Thanks for that huge tip.
There seems to be some problem when setting it just for the $tee though, write() seems to expect $~ and $^ to be filled in too , otherwise it keeps trying to use the name of the filehandle IO::<something> which obviously won't work.

After setting $^ and $~ properly before write() then write began spitting out duplicate lines each time it was called. With each successive call to write, write() would output the previous line and the current line.

to solve this I cleared the accumulator ( $^A = '' ) after writing each line. That solved the problem.

sub print_clean_stdout {
        my $result = shift;
        $check_description = shift;
        $check_result = shift;
        $severity_w = shift;

        if ( $result eq 'FAIL' ) {
                $tee->format_write( q/main::FAIL/ );
                $~ = 'FAIL';
                $failures++;
        }
        else {
                $tee->format_write( q/main::STD/ );
                $~ = 'STD';
                $successes++;
        }
        write;
        $^A = ''; # we have to mess with the accumulator
}
[download]

Comment on Re^2: IO::Tee and write / format Download Code

Replies are listed 'Best First'.
Re^3: IO::Tee and write / format by broomduster (Priest) on Oct 17, 2008 at 19:36 UTC
The whole point here is to use `$tee->format_write()` instead of `write`. Then you don't have to fool around with `$^` et al. (it all happens automagically). A better way for me to have shown this might have been with more calls to `$tee->format_write()`, as in the following modified version of what I posted earlier. use strict; use warnings; use IO::Tee; my %hash = map { ("key$_", "val$_") } ( 1 .. 5 ); my $key; format TEE_TOP = ==== Top of Output ==== . format TEE = @<<<<< @<<<<< $key, $hash{$key} . # with lexical file handle; can also use bareword handle open my $outfile, '>', 'junk.out' or die "error opening junk.out: ($! +)"; my $tee = IO::Tee->new( \*STDOUT, $outfile ); # see docs for IO::Tee and IO::Handle for explanation of these methods # and others available for proper format use/control $tee->format_top_name( q/main::TEE_TOP/ ); for $key ( sort keys %hash ) { $tee->format_write( q/main::TEE/ ); } [download] from the shell: `-> ./tst-tee-write ==== Top of Output ==== key1 val1 key2 val2 key3 val3 key4 val4 key5 val5 -> cat junk.out ==== Top of Output ==== key1 val1 key2 val2 key3 val3 key4 val4 key5 val5` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: IO::Tee and write / format
by broomduster (Priest) on Oct 17, 2008 at 19:36 UTC

$tee->format_write()

instead of

write

$^

et al.

$tee->format_write()

use strict;
use warnings;
use IO::Tee;

my %hash = map { ("key$_", "val$_") } ( 1 .. 5 );
my $key;


format TEE_TOP =
==== Top of Output ====
.

format TEE =
@<<<<<  @<<<<<
$key,   $hash{$key}
.

# with lexical file handle; can also use bareword handle
open my $outfile, '>', 'junk.out'  or die "error opening junk.out: ($!
+)";
my $tee = IO::Tee->new( \*STDOUT, $outfile );

# see docs for IO::Tee and IO::Handle for explanation of these methods
# and others available for proper format use/control

$tee->format_top_name( q/main::TEE_TOP/ );

for $key ( sort keys %hash ) {
    $tee->format_write( q/main::TEE/ );
}
[download]

-> ./tst-tee-write 
==== Top of Output ====
key1    val1
key2    val2
key3    val3
key4    val4
key5    val5
-> cat junk.out 
==== Top of Output ====
key1    val1
key2    val2
key3    val3
key4    val4
key5    val5
[download]

[reply]
[d/l]
[select]