Front page | perl.beginners |
Postings from March 2002
Re: Testing for filehandles
Thread Previous
|
Thread Next
From:
Agustin Rivera
Date:
March 27, 2002 13:48
Subject:
Re: Testing for filehandles
Message ID:
004801c1d5d8$cf1fe230$9865fea9@agustinr
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" <tjohnson@sandisk.com>
To: <eric-perl@pretorious.net>; "Beginners Perl Mailing List"
<beginners@perl.org>
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: eric-perl@pretorious.net [mailto:eric-perl@pretorious.net]
> 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: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org
>
>
> --------------------------------------------------------------------------
------
> 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: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org
Thread Previous
|
Thread Next