in reply to Unexpected behavior with open

Buffering. You haven't flushed your output buffer yet. If you add
my $old = select FOO; $| = 1; select $old;
right after the open FOO, you'd see all the data.

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re: Re: Unexpected behavior with open
by Anonymous Monk on Apr 14, 2001 at 06:23 UTC
    or you can use the idiom
    select((select(FOO),$|=1)[0]);
    does "idiom" mean "obfuscation"?