Re^4: Filehander Question

Why bother duping STDOUT, then?

my $fh;
if ( $opt->{o} ) {
    open ( $fh, '>', $opt->{o} )
    or die "Unable to open $opt->{o} for writing : $!";
    select($fh);
    $| = 1;
}
[download]

Comment on Re^4: Filehander Question Download Code

Replies are listed 'Best First'.
Re^5: Filehander Question by Limbic~Region (Chancellor) on Oct 07, 2004 at 15:46 UTC
ikegami, Well, it was intended as an unspoken excersise for the reader/EchoAngel. By using a lexical FD, I thought it would be possible to make the magic work for only certain parts of the code and that when it fell out of scope Perl would DWIM and revert back to STDOUT. As I was replying to this node I thought I better check it - turns out that it doesn't do what I thought it would. Subsequent prints to a lexical file handle that was selected but has gone out of scope still goes to that filehandle instead of reverting back to STDOUT. In light of this new discovery, the dup of STDOUT is not necessary, but it still had value - I learned something cool. Cheers - L~R	[reply]

Replies are listed 'Best First'.

Re^5: Filehander Question
by Limbic~Region (Chancellor) on Oct 07, 2004 at 15:46 UTC

ikegami

EchoAngel

As I was replying to this node I thought I better check it - turns out that it doesn't do what I thought it would. Subsequent prints to a lexical file handle that was selected but has gone out of scope still goes to that filehandle instead of reverting back to STDOUT. In light of this new discovery, the dup of STDOUT is not necessary, but it still had value - I learned something cool.

Cheers - L~R

[reply]