in reply to Testing for open filehandles

if (defined fileno *FH) { it's open }

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
Re: Re: Testing for open filehandles
by clintp (Curate) on Sep 10, 2001 at 19:29 UTC
    One small question: why the *?
[reply]
[d/l]
      Because I'm a cargo-cult madman? No particular reason.

      _____________________________________________________
      Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
      s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

[reply]

In Section Seekers of Perl Wisdom