How would that work with use strict;? I tried it once and when I declared my $opt_n before using getopts, it wouldn't work.
Agustin Rivera Webmaster, Pollstar.com http://www.pollstar.com ----- Original Message ----- From: "Timothy Johnson" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; "Beginners Perl Mailing List" <[EMAIL PROTECTED]> Sent: Wednesday, March 27, 2002 1:32 PM Subject: RE: Testing for filehandles > > You'd probably have better luck testing for the open() command's success > > use Getopts::Std; > getopts("n"); > if($opt_n){ > open(OPT_LOG,">/tmp/foo.txt") || die "Could not open foo.txt!\n"; > } > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, March 27, 2002 12:18 PM > To: Beginners Perl Mailing List > Subject: Testing for filehandles > > > 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] > > > -------------------------------------------------------------------------- ------ > This email may contain confidential and privileged > material for the sole use of the intended recipient. > If you are not the intended recipient, please contact > the sender and delete all copies. > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
