Filehandel Open? 1

[ejaggers]

How can you tell if a filehandle is already open?

i.e. open(OFH,">$filename");

if OFH is open do something;

 

[azzazzello]

try this

fileno FH

Will be undef if not open

 

[rvBasic]

use Scalar::Util qw(openhandle);

if (openhandle($LogFile)){--do something with open file--}
else{--do something else: file is not open)}


_________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]

 

[ejaggers]

azzazzello, what am i doing wrong. This doesn't work:

use Scalar::Util qw(openhandle);
my $ofh = 'test.out';
open(OFH,">$ofh");

if ( openhandle($ofh) ) {
print "--do something with open file--\n";
}
else{
print "--do something else: file is not open\n";
}

 

[rvBasic]

use Scalar::Util qw(openhandle);

my $FH = undef;
my $ofh = 'test.out';
open($FH,">$ofh") or die "can not open file\n";

if (openhandle($FH) ) {
print "--do something with open file--\n";
}
else{
print "--do something else: file is not open\n";
}

_________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]

 

[KevinADC]

azzazzello, what am i doing wrong. This doesn't work:

use Scalar::Util qw(openhandle);
my $ofh = 'test.out';
open(OFH,">$ofh");

if ( openhandle($ofh) ) {
print "--do something with open file--\n";
}
else{
print "--do something else: file is not open\n";
}

You're checking the filename ($ofh), not the filehandle (OFH).

------------------------------------------
- Kevin, perl coder unexceptional!