Hello, All:
I've looked around for an answer to this (The Camel Book, The Ram Book,
perldoc, google.com, etc.) but can't find a thing: Is it possible to test
for the existence of a filehandle?
I've got a small script that <optionally> opens a filehandle. If that
filehandle exists, I'd like to print to it. Otherwise, don't. e.g.,
use Getopts::Std;
getopts("n");
open(OPT_LOG,">/tmp/foo.txt") if ($opt_n);
while (<>) {
print OPT_LOG $_ if OPT_LOG;
}
close(OPT_LOG) if OPT_LOG;
--
Eric P.
Los Gatos, CA
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
