Getopt::Std creates the $opt_n variables. To use it with use strict; in place you must use the use vars ($opt_n); pragma as well. or just use the getopts('n', \%opts); call. Then you can say $opts{n}.
On Wed, 2002-03-27 at 16:46, Agustin Rivera wrote: > 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] > > -- Today is Sweetmorn the 13rd day of Discord in the YOLD 3168 Grudnuk demand sustenance! Missile Address: 33:48:3.521N 84:23:34.786W -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]